ComeçarComece de graça

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

Ver curso

Instruções do exercício

  • Crie um novo objeto SharedData a partir do data frame state_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 %>%
  ___(___, ___, ___) %>%
  ___() %>%
  ___()
Editar e executar o código