Huy chương Olympic theo châu lục
Bạn muốn so sánh thành tích Olympic của các vận động viên theo từng châu lục theo thời gian, cả ở Thế vận hội mùa đông và mùa hè. Bạn được cung cấp bộ dữ liệu medal_df với số huy chương trung bình giành được trên mỗi vận động viên của từng châu lục kể từ năm 1928. Bạn sẽ hoàn thiện dữ liệu này để thêm các giá trị 0 cho những năm mà một châu lục không giành được huy chương nào.
Gói ggplot2 đã được nạp sẵn cho bạn.
Bài tập này là một phần của khóa học
Định hình lại dữ liệu với tidyr
Hướng dẫn bài tập
- Hoàn thiện bộ dữ liệu để mỗi
continentcó một giá trịmedals_per_participanttại mỗi kỳ Olympic. Giá trị thiếu cần được điền bằng 0. - Lồng biến
seasonvàyearbằng hàmnesting(), vì Thế vận hội mùa hè và mùa đông không diễn ra cùng năm. - Dùng
ggplot()để tạo biểu đồ đường vớimedals_per_participanttheoyear, tô màu đường theocontinent.
Bài tập tương tác thực hành trực tiếp
Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.
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 ~ .)