ComeçarComece de graça

Lançamentos estatais vs. privados

Com base no gráfico anterior, parece que, com exceção da China, houve uma queda nos lançamentos. Isso é verdade? Ou a corrida espacial migrou para o mercado privado? Neste exercício, sua tarefa é explorar essa questão comparando o número de lançamentos de estados e de empresas privadas ao longo do tempo.

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 launches_by_year.
  • Crie um gráfico de linhas para representar o número de lançamentos ao longo do tempo (launch_year) por agency_type. Use cor para representar agency_type.
  • Habilite a seleção (isto é, o destaque) de um agency_type.

Exercício interativo prático

Experimente este exercício completando este código de exemplo.

# 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 %>%
  ___(___, ___, ___) %>%
  ___() %>%
  ___()
Editar e executar o código