Starty państwowe a prywatne
Na podstawie poprzedniego wykresu można odnieść wrażenie, że – poza Chinami – liczba startów spada. Czy to prawda? A może wyścig kosmiczny dotarł już na rynek prywatny? Twoim zadaniem w tym ćwiczeniu jest zbadanie tego pytania poprzez porównanie liczby startów realizowanych przez państwa i firmy prywatne na przestrzeni lat.
Pakiety plotly, crosstalk i dplyr są już wczytane.
To ćwiczenie jest częścią kursu
Interaktywna wizualizacja danych średnio zaawansowana z plotly w R
Instrukcje do ćwiczenia
- Utwórz nowy obiekt
SharedDatana podstawie ramki danychlaunches_by_year. - Utwórz wykres liniowy przedstawiający liczbę startów w czasie (
launch_year) według zmiennejagency_type. Użyj koloru do reprezentowaniaagency_type. - Włącz zaznaczanie (tj. podświetlanie) wartości
agency_type.
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
# table of launches by year and agency type
launches_by_year <- launches %>% count(launch_year, agency_type)
# create a ShareData object for plotting
shared_launches <- launches_by_year %>% ___(key = ___)
# create a line chart displaying launches by agency type, with highlighting
shared_launches %>%
___(___, ___, ___) %>%
___() %>%
___()