Chapter 10 Number of No 1 Tennis Players each year

We plot the number of No 1 Tennis Players in a Year. This shows how many players were number One in a single year.

10.1 Number of No 1 Tennis Players from 2017 to 2003

players_rankings_rank_one_year %>%
  group_by(year) %>%
  summarise(Count = n()) %>%
  arrange(desc(year)) %>%
  ungroup() %>%
  head(15) %>%
  
  ggplot(aes(x = year,y = Count)) +
  geom_bar(stat='identity',colour="white", fill = fillColor2) +
  geom_text(aes(x = year, y = 1, label = paste0("(",Count,")",sep="")),
            hjust=0, vjust=.5, size = 4, colour = 'black',
            fontface = 'bold') +
  labs(x = 'Year', 
       y = 'Count', 
       title = 'Year and Count') +
  coord_flip() + 
  theme_bw()

There is no complete domination in the years 2017 - 2003 as shown in the bar plot except for 2014 and 2015, which was dominated by Serena Williams.

The data of the rankings are shown below

kable(head(players_rankings_rank_one_year %>% arrange(desc(year)),10),"html") %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed", "responsive")) %>%
  scroll_box(width = "800px")

first_name	last_name	year
Angelique	Kerber	2017
Garbine	Muguruza	2017
Karolina	Pliskova	2017
Serena	Williams	2017
Angelique	Kerber	2016
Serena	Williams	2016
Serena	Williams	2015
Serena	Williams	2014
Serena	Williams	2013
Victoria	Azarenka	2013

10.2 Number of No 1 Tennis Players from 1984 to 2003

1984 to 1996 was dominated by Three players Martina Navratilova, Steffi Graf and Monica Seles.1997 to around 2002 was dominated by Lindsay Davenport and Martina Hingis.

players_rankings_rank_one_year %>%
  group_by(year) %>%
  summarise(Count = n()) %>%
  arrange(desc(year)) %>%
  ungroup() %>%
  tail(20) %>%
  
  ggplot(aes(x = year,y = Count)) +
  geom_bar(stat='identity',colour="white", fill = fillColor2) +
  geom_text(aes(x = year, y = 1, label = paste0("(",Count,")",sep="")),
            hjust=0, vjust=.5, size = 4, colour = 'black',
            fontface = 'bold') +
  labs(x = 'Year', 
       y = 'Count', 
       title = 'Year and Count') +
  coord_flip() + 
  theme_bw()

The data of the rankings are shown below

kable(tail(players_rankings_rank_one_year %>% arrange(desc(year)) ,34),"html") %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed", "responsive")) %>%
  scroll_box(width = "800px")

first_name	last_name	year
Lindsay	Davenport	2002
Serena	Williams	2002
Venus	Williams	2002
Jennifer	Capriati	2001
Lindsay	Davenport	2001
Martina	Hingis	2001
Lindsay	Davenport	2000
Martina	Hingis	2000
Lindsay	Davenport	1999
Martina	Hingis	1999
Lindsay	Davenport	1998
Martina	Hingis	1998
Martina	Hingis	1997
Steffi	Graf	1997
Monica	Seles	1996
Steffi	Graf	1996
Arantxa	Sanchez Vicario	1995
Monica	Seles	1995
Steffi	Graf	1995
Steffi	Graf	1994
Monica	Seles	1993
Steffi	Graf	1993
Monica	Seles	1992
Monica	Seles	1991
Steffi	Graf	1991
Steffi	Graf	1990
Steffi	Graf	1989
Steffi	Graf	1988
Martina	Navratilova	1987
Steffi	Graf	1987
Martina	Navratilova	1986
Chris	Evert	1985
Martina	Navratilova	1985
Martina	Navratilova	1984