Cronología de la carrera espacial
La primera “carrera” espacial comenzó cuando Estados Unidos y la Unión Soviética intentaban convertirse en la potencia dominante en los vuelos espaciales. Esta carrera alcanzó su punto álgido el 20 de julio de 1969, cuando el Apolo 11, una nave tripulada, aterrizó en la Luna. En este ejercicio, tu tarea es crear una serie temporal que resuma esa primera carrera: la competencia por la supremacía en vuelos espaciales entre países.
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
Instrucciones del ejercicio
- Crea un nuevo objeto
SharedDataa partir del data framestate_launches. - Crea un gráfico de líneas que muestre el número de lanzamientos por año (
launch_year) para cada estado (state_code). - Dibuja cada línea con un color diferente.
- Habilita la selección (es decir, el resaltado) de un estado individual.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
# 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 %>%
___(___, ___, ___) %>%
___() %>%
___()