Medaglie olimpiche per continente

Vuoi confrontare nel tempo le prestazioni olimpiche degli atleti per continente, sia alle Olimpiadi invernali sia a quelle estive. Ti è stato fornito un insieme di dati medal_df con il numero medio di medaglie vinte per partecipante di ciascun continente dal 1928. Completerai questi dati per introdurre valori zero negli anni in cui un continente non ha vinto alcuna medaglia.

Olympic flag

Il pacchetto ggplot2 è già stato caricato per te.

Questo esercizio fa parte del corso

Rimodellare i dati con tidyr

Visualizza il corso

Istruzioni dell'esercizio

Completa l'insieme di dati in modo che ogni continent abbia un valore di medals_per_participant per ogni edizione olimpica. I valori mancanti devono essere riempiti con zeri.
Annida le variabili season e year usando la funzione nesting(), dato che le Olimpiadi estive e invernali non si svolgono negli stessi anni.
Usa ggplot() per creare un grafico a linee con medals_per_participant per year, colorando le linee in base a continent.

Esercizio pratico interattivo

Prova a risolvere questo esercizio completando il codice di esempio.

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

Modifica ed esegui il codice