Médailles olympiques par continent

Vous souhaitez comparer, au fil du temps, les performances olympiques des athlètes par continent, pour les Jeux d’hiver comme d’été. On vous fournit un jeu de données medal_df avec le nombre moyen de médailles remportées par participant pour 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 package ggplot2 a été préchargé pour vous.

Cet exercice fait partie du cours

Reshaper des données avec tidyr

Afficher le cours

Instructions

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 avec la fonction nesting(), car 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 par continent.

Exercice interactif pratique

Essayez cet exercice en complétant cet exemple de code.

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