ComenzarEmpieza gratis

Lanzamientos estatales vs. privados

Según el gráfico anterior, parece que, salvo China, ha habido un descenso en los lanzamientos. ¿Es cierto? ¿O la carrera espacial ha llegado al mercado privado? En este ejercicio, tu tarea es explorar esta cuestión comparando el número de lanzamientos de estados y de empresas privadas a lo largo del tiempo.

Los paquetes plotly, crosstalk y dplyr ya están cargados.

Este ejercicio forma parte del curso

Visualización de datos interactiva intermedia con plotly en R

Ver curso

Instrucciones del ejercicio

  • Crea un nuevo objeto SharedData a partir del data frame launches_by_year.
  • Crea un gráfico de líneas para representar el número de lanzamientos a lo largo del tiempo (launch_year) por agency_type. Usa el color para representar agency_type.
  • Habilita la selección (es decir, el resaltado) de un agency_type.

Ejercicio interactivo práctico

Prueba este ejercicio y completa el código de muestra.

# 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 y ejecutar código