Animacja prywatnego wyścigu kosmicznego
W ostatnich latach głównymi graczami w dziedzinie lotów kosmicznych stały się prywatne firmy, które zastąpiły agencje rządowe. W tym ćwiczeniu tworzysz animację pokazującą ewolucję tego „nowego" wyścigu kosmicznego. Zbiór danych private_launches zawiera następujące zmienne:
tag– identyfikator startuyear– rok startuagency_code– skrót nazwy agencjiagency_name– pełna nazwa agencjiagency_type– ugruntowana firma prywatna (private) lub startup (startup)category– sukces (O) lub niepowodzenie (F) misji
Biblioteki plotly, dplyr, tidyr i purrr są już wczytane.
To ćwiczenie jest częścią kursu
Interaktywna wizualizacja danych średnio zaawansowana z plotly w R
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
# Complete the private_launches data set
annual_launches <- private_launches %>%
count(year, agency_name) %>%
___(___, ___, ___)