Olimpijskie medale na kontynent

Chcesz porównać wyniki olimpijskie sportowców z poszczególnych kontynentów na przestrzeni lat – zarówno na zimowych, jak i letnich igrzyskach olimpijskich. Dysponujesz zbiorem danych medal_df zawierającym średnią liczbę medali zdobytych na uczestnika z każdego kontynentu od 1928 roku. Uzupełnisz te dane, wprowadzając wartości zerowe dla lat, w których dany kontynent nie zdobył żadnych medali.

Flaga olimpijska

Pakiet ggplot2 jest już wczytany.

To ćwiczenie jest częścią kursu

Przekształcanie danych z tidyr

Zobacz kurs

Instrukcje do ćwiczenia

Uzupełnij zbiór danych tak, aby każdy continent miał wartość medals_per_participant dla każdej edycji igrzysk olimpijskich. Brakujące wartości wypełnij zerami.
Zagnieźdź zmienne season i year za pomocą funkcji nesting(), ponieważ letnie i zimowe igrzyska olimpijskie nie odbywają się w tych samych latach.
Użyj ggplot(), aby utworzyć wykres liniowy przedstawiający medals_per_participant w zależności od year, z kolorowaniem według continent.

Interaktywne ćwiczenie praktyczne

Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.

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

Edytuj i uruchom kod