Lanci statali vs. privati
In base al grafico precedente, sembra che, a parte la Cina, ci sia stato un calo dei lanci. È davvero così? Oppure la corsa allo spazio è passata al mercato privato? In questo esercizio, il tuo compito è esplorare questa domanda confrontando nel tempo il numero di lanci effettuati da stati e da aziende private.
I pacchetti plotly, crosstalk e dplyr sono già caricati.
Questo esercizio fa parte del corso
Visualizzazione interattiva dei dati intermedia con plotly in R
Istruzioni dell'esercizio
- Crea un nuovo oggetto
SharedDataa partire dal data framelaunches_by_year. - Crea un grafico a linee per rappresentare il numero di lanci nel tempo (
launch_year) in base adagency_type. Usa il colore per rappresentareagency_type. - Abilita la selezione (ossia l'evidenziazione) di un
agency_type.
Esercizio pratico interattivo
Prova a risolvere questo esercizio completando il codice di esempio.
# 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 %>%
___(___, ___, ___) %>%
___() %>%
___()