Zacznij terazZacznij za darmo

Oś czasu wyścigu kosmicznego

„Pierwszy" wyścig kosmiczny rozpoczął się, gdy Stany Zjednoczone i Związek Radziecki rywalizowały o dominację w eksploracji kosmosu. Kulminacją tego wyścigu był 20 lipca 1969 roku – dzień, w którym Apollo 11, załogowy statek kosmiczny, wylądował na Księżycu. W tym ćwiczeniu twoim zadaniem jest stworzenie wykresu szeregu czasowego podsumowującego pierwszy wyścig kosmiczny: rywalizację krajów o przewagę w lotach kosmicznych.

Pakiety plotly, crosstalk i dplyr są już załadowane.

To ćwiczenie jest częścią kursu

Interaktywna wizualizacja danych średnio zaawansowana z plotly w R

Zobacz kurs

Instrukcje do ćwiczenia

  • Utwórz nowy obiekt SharedData na podstawie ramki danych state_launches.
  • Stwórz wykres liniowy przedstawiający liczbę startów w poszczególnych latach (launch_year) dla każdego kraju (state_code).
  • Każdą linię narysuj w innym kolorze.
  • Włącz możliwość zaznaczania (tj. wyróżniania) poszczególnych krajów.

Interaktywne ćwiczenie praktyczne

Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.

# table of launches by year
state_launches <- launches %>% 
  filter(agency_type == "state") %>% 
  count(launch_year, state_code)

# create a ShareData object for plotting
shared_launches <- state_launches %>% ___(key = ___)

# Create a line chart for launches by state, with highlighting
shared_launches %>%
  ___(___, ___, ___) %>%
  ___() %>%
  ___()
Edytuj i uruchom kod