Chapter 20 Age difference between winners and losers

We plot the age difference between winners and losers for the grand slams.

summary(grandslam$agediff)

##     Min.  1st Qu.   Median     Mean  3rd Qu.     Max. 
## -13.3087  -1.6030   1.0185   0.9144   4.4736  12.0329

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

grandslam %>%
  ggplot(aes(x = agediff)) +
  geom_density(fill = fillColor2) +
  labs(x= 'Age Difference',y = 'Count', title = paste("Distribution of", ' Age Difference ')) +
  theme_bw()

It is evident from the plots that older players win finals more than the younger players.