Zerando medalhas olímpicas
Desde 1896, atletas do mundo todo competem nos Jogos Olímpicos modernos. Você recebeu um conjunto de dados (medal_df) com observações de todas as medalhas conquistadas por atletas dos 10 países mais bem-sucedidos na história olímpica. Você quer criar um gráfico com o número de medalhas por país (team) em cada year. No entanto, como nem todos os países ganharam medalhas em todos os anos, será preciso incluir valores zero antes de gerar um gráfico fiel aos dados.

Os pacotes ggplot2 e dplyr já foram carregados para você. Nos passos 2 e 3, a função scale_color_brewer() é usada para colorir as linhas do gráfico com uma paleta que facilita distinguir os diferentes países.
Este exercício faz parte do curso
Reestruturando dados com tidyr
Exercício interativo prático
Experimente este exercício completando este código de exemplo.
medal_df %>%
# Count the medals won per team and year
___(___, ___, name = "n_medals")