Linha do tempo da corrida espacial
A “primeira” corrida espacial começou quando os Estados Unidos e a União Soviética tentaram se tornar a potência global em voos espaciais. Essa corrida atingiu seu auge em 20 de julho de 1969, quando a Apollo 11, uma espaçonave tripulada, pousou na Lua. Neste exercício, sua tarefa é criar um gráfico de séries temporais que resuma a primeira corrida espacial: a disputa pela superioridade em voos espaciais entre países.
Os pacotes plotly, crosstalk e dplyr já estão carregados.
Este exercício faz parte do curso
Visualização Interativa de Dados Intermediária com plotly em R
Instruções do exercício
- Crie um novo objeto
SharedDataa partir do data framestate_launches. - Crie um gráfico de linhas exibindo o número de lançamentos por ano (
launch_year) para cada estado (state_code). - Trace cada linha em uma cor diferente.
- Habilite a seleção (isto é, destaque) de um estado individual.
Exercício interativo prático
Experimente este exercício completando este código de exemplo.
# 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 %>%
___(___, ___, ___) %>%
___() %>%
___()