Medallas olímpicas por continente

Quieres comparar, a lo largo del tiempo, el rendimiento olímpico de los atletas por continente, tanto en los Juegos de invierno como en los de verano. Te han dado un conjunto de datos medal_df con el número medio de medallas ganadas por participante de cada continente desde 1928. Completarás estos datos para introducir valores cero en los años en los que un continente no ganó ninguna medalla.

Olympic flag

El paquete ggplot2 ya está cargado.

Este ejercicio forma parte del curso

Reestructurar datos con tidyr

Ver curso

Instrucciones del ejercicio

Completa el conjunto de datos para que cada continent tenga un valor de medals_per_participant en cada edición olímpica. Rellena los valores que faltan con ceros.
Anida las variables season y year usando la función nesting(), ya que los Juegos de verano e invierno no ocurren en los mismos años.
Usa ggplot() para crear un gráfico de líneas con medals_per_participant por year, coloreando por continent.

Ejercicio interactivo práctico

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

medal_df %>% 
  # Give each continent an observation at each Olympic event
  complete(
    ___, 
    ___, 
    fill = ___(___ = ___)
  ) %>%
  # Plot the medals_per_participant over time, colored by continent
  ggplot(___) +
  ___ +
  facet_grid(season ~ .)

Editar y ejecutar código