Lansări de stat vs. private
Pe baza graficului anterior, se pare că, exceptând China, numărul lansărilor a scăzut. Este cu adevărat așa? Sau cursa spațială a ajuns și pe piața privată? În acest exercițiu, sarcina ta este să explorezi această întrebare comparând numărul de lansări realizate de state și de companii private de-a lungul timpului.
Bibliotecile plotly, crosstalk și dplyr sunt deja încărcate.
Acest exercițiu face parte din cursul
Vizualizare interactivă avansată a datelor cu plotly în R
Instrucțiuni pentru exercițiu
- Creează un nou obiect
SharedDatadin cadrul de datelaunches_by_year. - Creează un grafic liniar care să reprezinte numărul de lansări în timp (
launch_year) în funcție deagency_type. Folosește culoarea pentru a reprezentaagency_type. - Activează selecția (adică evidențierea) unui
agency_type.
Exercițiu interactiv practic
Încearcă acest exercițiu completând acest cod de exemplu.
# 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 %>%
___(___, ___, ___) %>%
___() %>%
___()