Chapter 17 Wimbledon Winners

The following bar plot shows the Wimbledon winners

wimbledon = getTournamentWinners("Wimbledon","F")  
plotTournamentWinners(wimbledon,'Wimbledon Winners Count')

17.1 Distribution of Age of Wimbledon Winners

summary(wimbledon$winner_age)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   17.17   21.40   25.99   25.64   28.55   34.75

wimbledon %>%
  ggplot(aes(x = winner_age)) +
  geom_histogram(binwidth = 1,fill = fillColor) +
  labs(x= 'Winner Age',y = 'Count', title = paste("Distribution of", ' Winner Age ')) +
  theme_bw()

The plot shows the Wimbledon winners are mostly between 21 and 29.