Médailles olympiques par continent

Vous souhaitez comparer, au fil du temps, la performance olympique des athlètes par continent, tant aux Jeux d'hiver qu'aux Jeux d'été. On vous a fourni un jeu de données medal_df indiquant le nombre moyen de médailles remportées par participant de chaque continent depuis 1928. Vous allez compléter ces données afin d'introduire des zéros pour les années où un continent n'a remporté aucune médaille.

Olympic flag

Le paquet ggplot2 a été préchargé pour vous.

Cette activité fait partie du cours

Restructurer des données avec tidyr

Voir le cours

Instructions de l’exercice

Complétez le jeu de données afin que chaque continent ait une valeur de medals_per_participant à chaque édition des Jeux olympiques. Les valeurs manquantes doivent être remplacées par des zéros.
Regroupez les variables season et year à l'aide de la fonction nesting(), puisque les Jeux d'été et d'hiver n'ont pas lieu les mêmes années.
Utilisez ggplot() pour créer un graphique linéaire de medals_per_participant par year, et colorez les lignes selon le continent.

Exercice interactif pratique

Essayez cet exercice en complétant ce code d’exemple.

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 ~ .)

Modifier et exécuter le code