Aggiungere uno slider per il tempo
Nella lezione precedente, hai creato un'animazione che mostra il numero di lanci effettuati da ciascuno stato nel corso degli anni. Una barra di scorrimento è un'alternativa a quell'animazione che ti dà il pieno controllo sulla porzione di storia da esplorare. Per esempio, puoi guardarla dall'inizio alla fine oppure concentrarti solo sugli anni Sessanta. In questo esercizio, il tuo compito è aggiungere una barra di scorrimento sotto il grafico a linee dei lanci per stato.
plotly, crosstalk, dplyr e il set di dati state_launches sono già stati caricati per te.
Questo esercizio fa parte del corso
Visualizzazione interattiva dei dati intermedia con plotly in R
Istruzioni dell'esercizio
- Calcola il numero di lanci per
state_codeelaunch_year, quindi converti il risultato in un oggettoSharedData. Salva il risultato inshared_launches. - Usando
shared_launches, crea un grafico a linee che mostri il numero di lanci (n) per ciascuno stato nel tempo. Salva questo grafico comelaunch_ts. Usa il colore per rappresentarestate_code. - Posiziona uno slider sotto il grafico per filtrare gli anni visualizzati. Etichetta questo slider
"Year".
Esercizio pratico interattivo
Prova a risolvere questo esercizio completando il codice di esempio.
# Create a SharedData object containing the number of launches by year and state
shared_launches <- state_launches %>%
count(___, ___) %>%
___()
# Create a line chart displaying the launches by state
launch_ts <- ___ %>%
___(x = ___, y = ___, color = ___) %>%
___()
# Add a slider below the chart to filter the years displayed
___(list(___,
___(id = "time", label = ___,
sharedData = ___, column = ___)
))