Medali Olimpiade per benua

Anda ingin membandingkan performa Olimpiade para atlet per benua dari waktu ke waktu, baik pada Olimpiade musim dingin maupun musim panas. Anda menerima himpunan data medal_df yang berisi rata-rata jumlah medali yang dimenangkan per peserta untuk setiap benua sejak 1928. Anda akan melengkapi data ini untuk memperkenalkan nilai nol pada tahun ketika suatu benua tidak memenangkan medali apa pun.

Olympic flag

Paket ggplot2 telah dimuatkan untuk Anda.

Latihan ini merupakan bagian dari kursus

Mengubah Bentuk Data dengan tidyr

Lihat Kursus

Instruksi latihan

Lengkapi himpunan data sehingga setiap continent memiliki nilai medals_per_participant pada setiap penyelenggaraan Olimpiade. Nilai yang hilang harus diisi dengan nol.
Kelompokkan variabel season dan year menggunakan fungsi nesting(), karena Olimpiade musim panas dan musim dingin tidak berlangsung pada tahun yang sama.
Gunakan ggplot() untuk membuat plot garis dengan medals_per_participant per year, dan warnai plot berdasarkan continent.

Latihan interaktif langsung praktik

Cobalah latihan ini dengan melengkapi kode contoh ini.

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

Edit dan Jalankan Kode