オリンピックのメダル数ゼロ
1896年以降、世界中のアスリートが近代オリンピックで競い合ってきました。あなたには、オリンピック史上最も成功した10か国のアスリートが獲得したすべてのメダルの観測値が入ったデータセット(medal_df)が与えられています。国(team)ごとの年(year)ごとのメダル獲得数を可視化したいとします。ただし、すべての年にすべての国がメダルを獲得しているわけではないため、正確な可視化を作るには、事前にゼロの値を補う必要があります。

ggplot2 と dplyr はすでに読み込まれています。ステップ2と3では、異なる国を見分けやすくするためのパレットで線の色分けを行うために、scale_color_brewer() 関数を使用します。
この演習はコースの一部です
tidyrでデータを整形する
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
medal_df %>%
# Count the medals won per team and year
___(___, ___, name = "n_medals")