Cronologia della corsa allo spazio
La “prima” corsa allo spazio iniziò quando Stati Uniti e Unione Sovietica cercarono di affermarsi come potenza dominante nei voli spaziali. Il culmine fu il 20 luglio 1969, quando l’Apollo 11, una navicella con equipaggio, atterrò sulla Luna. In questo esercizio, il tuo compito è creare un grafico a serie temporale che riassuma la prima corsa allo spazio: la corsa alla superiorità nei voli spaziali da parte dei vari Paesi.
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 framestate_launches. - Crea un grafico a linee che mostri il numero di lanci per anno (
launch_year) per ciascuno stato (state_code). - Disegna ogni linea con un colore diverso.
- Abilita la selezione (ovvero l’evidenziazione) di un singolo stato.
Esercizio pratico interattivo
Prova a risolvere questo esercizio completando il codice di esempio.
# table of launches by year
state_launches <- launches %>%
filter(agency_type == "state") %>%
count(launch_year, state_code)
# create a ShareData object for plotting
shared_launches <- state_launches %>% ___(key = ___)
# Create a line chart for launches by state, with highlighting
shared_launches %>%
___(___, ___, ___) %>%
___() %>%
___()