Youngest_player_plot_WorldCup.R

table %>%
  arrange(age) %>% # Sort on age
  .[1:10,] %>% # Select top 10
  mutate(Player = factor(str_c(Player, "(", age,")"))) %>% # Add age to the players name for plotting
  ggplot(aes(x = fct_reorder(Player, Goals), y = Goals)) + # Start plotting
  geom_col(aes(fill = team)) + # Add bars
  geom_text(aes(y = -0.3, label = position, colour = team)) + # Add text that shows their position
  scale_colour_brewer(palette = "Dark2") + # Change colour scheme
  scale_fill_brewer(palette = "Dark2") + # Change colour scheme
  coord_flip() + # Flip x and y axis
  xlab("") + # remove label on y-axis
  ggtitle("Youngest players in the World Cup") + # Add title to the plot
  theme_minimal() + # Use a different theme
  theme(panel.grid = element_blank()) # Tweak the theme a little bit