Chapter 18 US Open Winners

The following bar plot shows the US Open winners

usopen = getTournamentWinners("US Open","F") 
plotTournamentWinners(usopen,'US Open Winners Count')

18.1 Distribution of Age of US Open Winners

summary(usopen$winner_age)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   19.18   21.20   25.73   25.53   28.31   33.51

usopen %>%
  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 US Open winners are mostly between 21 and 28.