Animace soukromého vesmírného závodu
V posledních letech se hlavními hráči v oblasti kosmických letů staly soukromé společnosti, které postupně nahradily vládní agentury. V tomto cvičení je tvým úkolem vytvořit animaci zachycující vývoj tohoto „nového" vesmírného závodu. Datová sada private_launches obsahuje následující proměnné:
tag– ID startuyear– rok startuagency_code– zkratka agenturyagency_name– název agenturyagency_type– zavedenáprivatespolečnost nebostartupcategory– úspěch (O) nebo neúspěch (F) startu
Balíčky plotly, dplyr, tidyr a purrr jsou již načteny.
Toto cvičení je součástí kurzu
Intermediate Interactive Data Visualization with plotly in R
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
# Complete the private_launches data set
annual_launches <- private_launches %>%
count(year, agency_name) %>%
___(___, ___, ___)