Untitled
| title: “Ganadores de Open Era” author: “Juan Abril” date: “17/7/2019” output: html_document |
| ```r library(htmltab) #instalemos primero |
| WimbledonMale = “https://en.wikipedia.org/wiki/List_of_Wimbledon_gentlemen%27s_singles_champions” OpenEraMale = htmltab(doc = WimbledonMale, which = ’//*[@id="mw-content-text"]/div/table[4]’) |
| # ver: OpenEraMale ``` |
## Year Country Champion Country Runner-up ## 2 1968 AUS Rod Laver AUS Tony Roche ## 3 1969 AUS Rod Laver AUS John Newcombe ## 4 1970 AUS John Newcombe AUS Ken Rosewall ## 5 1971 AUS John Newcombe USA Stan Smith ## 6 1972 USA Stan Smith ROM Ilie Năstase ## 7 1973 TCH Jan Kodeš URS Alex Metreveli ## 8 1974 USA Jimmy Connors AUS Ken Rosewall ## 9 1975 USA Arthur Ashe USA Jimmy Connors ## 10 1976 SWE Björn Borg ROM Ilie Năstase ## 11 1977 SWE Björn Borg USA Jimmy Connors ## 12 1978 SWE Björn Borg USA Jimmy Connors ## 13 1979 SWE Björn Borg USA Roscoe Tanner ## 14 1980 SWE Björn Borg USA John McEnroe ## 15 1981 USA John McEnroe SWE Björn Borg ## 16 1982 USA Jimmy Connors USA John McEnroe ## 17 1983 USA John McEnroe NZL Chris Lewis ## 18 1984 USA John McEnroe USA Jimmy Connors ## 19 1985 FRG Boris Becker USA Kevin Curren ## 20 1986 FRG Boris Becker TCH Ivan Lendl ## 21 1987 AUS Pat Cash TCH Ivan Lendl ## 22 1988 SWE Stefan Edberg FRG Boris Becker ## 23 1989 FRG Boris Becker SWE Stefan Edberg ## 24 1990 SWE Stefan Edberg FRG Boris Becker ## 25 1991 GER Michael Stich GER Boris Becker ## 26 1992 USA Andre Agassi CRO Goran Ivanišević ## 27 1993 USA Pete Sampras USA Jim Courier ## 28 1994 USA Pete Sampras CRO Goran Ivanišević ## 29 1995 USA Pete Sampras GER Boris Becker ## 30 1996 NED Richard Krajicek USA MaliVai Washington ## 31 1997 USA Pete Sampras FRA Cédric Pioline ## 32 1998 USA Pete Sampras CRO Goran Ivanišević ## 33 1999 USA Pete Sampras USA Andre Agassi ## 34 2000 USA Pete Sampras AUS Patrick Rafter ## 35 2001 CRO Goran Ivanišević AUS Patrick Rafter ## 36 2002 AUS Lleyton Hewitt ARG David Nalbandian ## 37 2003 SUI Roger Federer AUS Mark Philippoussis ## 38 2004 SUI Roger Federer USA Andy Roddick ## 39 2005 SUI Roger Federer USA Andy Roddick ## 40 2006 SUI Roger Federer ESP Rafael Nadal ## 41 2007 SUI Roger Federer ESP Rafael Nadal ## 42 2008 ESP Rafael Nadal SUI Roger Federer ## 43 2009 SUI Roger Federer USA Andy Roddick ## 44 2010 ESP Rafael Nadal CZE Tomáš Berdych ## 45 2011 SRB Novak Djokovic ESP Rafael Nadal ## 46 2012 SUI Roger Federer GBR Andy Murray ## 47 2013 GBR Andy Murray SRB Novak Djokovic ## 48 2014 SRB Novak Djokovic SUI Roger Federer ## 49 2015 SRB Novak Djokovic SUI Roger Federer ## 50 2016 GBR Andy Murray CAN Milos Raonic ## 51 2017 SUI Roger Federer CRO Marin Čilić ## 52 2018 SRB Novak Djokovic RSA Kevin Anderson ## 53 2019 SRB Novak Djokovic SUI Roger Federer ## Score in the final ## 2 6–3, 6–4, 6–2 ## 3 6–4, 5–7, 6–4, 6–4 ## 4 5–7, 6–3, 6–2, 3–6, 6–1 ## 5 6–3, 5–7, 2–6, 6–4, 6–4 ## 6 4–6, 6–3, 6–3, 4–6, 7–5 ## 7 6–1, 9–8, 6–3 ## 8 6–1, 6–1, 6–4 ## 9 6–1, 6–1, 5–7, 6–4 ## 10 6–4, 6–2, 9–7 ## 11 3–6, 6–2, 6–1, 5–7, 6–4 ## 12 6–2, 6–2, 6–3 ## 13 6–7, 6–1, 3–6, 6–3, 6–4 ## 14 1–6, 7–5, 6–3, 6–7, 8–6 ## 15 4–6, 7–6, 7–6, 6–4 ## 16 3–6, 6–3, 6–7, 7–6, 6–4 ## 17 6–2, 6–2, 6–2 ## 18 6–1, 6–1, 6–2 ## 19 6–3, 6–7, 7–6, 6–4 ## 20 6–4, 6–3, 7–5 ## 21 7–6, 6–2, 7–5 ## 22 4–6, 7–6, 6–4, 6–2 ## 23 6–0, 7–6, 6–4 ## 24 6–2, 6–2, 3–6, 3–6, 6–4 ## 25 6–4, 7–6, 6–4 ## 26 6–7, 6–4, 6–4, 1–6, 6–4 ## 27 7–6, 7–6, 3–6, 6–3 ## 28 7–6, 7–6, 6–0 ## 29 6–7, 6–2, 6–4, 6–2 ## 30 6–3, 6–4, 6–3 ## 31 6–4, 6–2, 6–4 ## 32 6–7, 7–6, 6–4, 3–6, 6–2 ## 33 6–3, 6–4, 7–5 ## 34 6–7, 7–6, 6–4, 6–2 ## 35 6–3, 3–6, 6–3, 2–6, 9–7 ## 36 6–1, 6–3, 6–2 ## 37 7–6, 6–2, 7–6 ## 38 4–6, 7–5, 7–6, 6–4 ## 39 6–2, 7–6, 6–4 ## 40 6–0, 7–6, 6–7, 6–3 ## 41 7–6, 4–6, 7–6, 2–6, 6–2 ## 42 6–4, 6–4, 6–7, 6–7, 9–7 ## 43 5–7, 7–6, 7–6, 3–6, 16–14 ## 44 6–3, 7–5, 6–4 ## 45 6–4, 6–1, 1–6, 6–3 ## 46 4–6, 7–5, 6–3, 6–4 ## 47 6–4, 7–5, 6–4 ## 48 6–7, 6–4, 7–6, 5–7, 6–4 ## 49 7–6, 6–7, 6–4, 6–3 ## 50 6–4, 7–6, 7–6 ## 51 6–3, 6–1, 6–4 ## 52 6–2, 6–2, 7–6 ## 53 7–6, 1–6, 7–6, 4–6, 13–12 |
r names(OpenEraMale)[2] = "Sede" names(OpenEraMale) |
## [1] "Year" "Sede" "Champion" ## [4] "Country" "Runner-up" "Score in the final" |
r table(OpenEraMale$Country) |
## ## SUI ARG AUS CAN CRO CZE ESP FRA FRG GBR GER NZL ## 4 1 7 1 4 1 3 1 2 1 2 1 ## ROM RSA SRB SWE TCH URS USA ## 2 1 1 2 2 1 15 |
r library(knitr) dataTable=table(OpenEraMale$Country) kable(dataTable) |
| Var1 Freq |
SUI 4 ARG 1 AUS 7 CAN 1 CRO 4 CZE 1 ESP 3 FRA 1 FRG 2 GBR 1 GER 2 NZL 1 ROM 2 RSA 1 SRB 1 SWE 2 TCH 2 URS 1 USA 15
names(OpenEraMale)[2] = "Sede"
names(OpenEraMale)## [1] "Year" "Sede" "Champion"
## [4] "Country" "Runner-up" "Score in the final"OpenEraMale=OpenEraMale[,c("Champion", "Country")]
OpenEraMale## Champion Country
## 2 Rod Laver AUS
## 3 Rod Laver AUS
## 4 John Newcombe AUS
## 5 John Newcombe USA
## 6 Stan Smith ROM
## 7 Jan Kodeš URS
## 8 Jimmy Connors AUS
## 9 Arthur Ashe USA
## 10 Björn Borg ROM
## 11 Björn Borg USA
## 12 Björn Borg USA
## 13 Björn Borg USA
## 14 Björn Borg USA
## 15 John McEnroe SWE
## 16 Jimmy Connors USA
## 17 John McEnroe NZL
## 18 John McEnroe USA
## 19 Boris Becker USA
## 20 Boris Becker TCH
## 21 Pat Cash TCH
## 22 Stefan Edberg FRG
## 23 Boris Becker SWE
## 24 Stefan Edberg FRG
## 25 Michael Stich GER
## 26 Andre Agassi CRO
## 27 Pete Sampras USA
## 28 Pete Sampras CRO
## 29 Pete Sampras GER
## 30 Richard Krajicek USA
## 31 Pete Sampras FRA
## 32 Pete Sampras CRO
## 33 Pete Sampras USA
## 34 Pete Sampras AUS
## 35 Goran Ivanišević AUS
## 36 Lleyton Hewitt ARG
## 37 Roger Federer AUS
## 38 Roger Federer USA
## 39 Roger Federer USA
## 40 Roger Federer ESP
## 41 Roger Federer ESP
## 42 Rafael Nadal SUI
## 43 Roger Federer USA
## 44 Rafael Nadal CZE
## 45 Novak Djokovic ESP
## 46 Roger Federer GBR
## 47 Andy Murray SRB
## 48 Novak Djokovic SUI
## 49 Novak Djokovic SUI
## 50 Andy Murray CAN
## 51 Roger Federer CRO
## 52 Novak Djokovic RSA
## 53 Novak Djokovic SUIlibrary(ggplot2)
base = ggplot(data=OpenEraMale,aes(x=Country))
bar1 = base + geom_bar()
bar1
bar1 + labs(x="País",
y="Campeones",
title="Campeones por país",
subtitle = "Wimbledon gentlemen's Open Era",
caption = "Fuente: Wikipedia")
dataTable<-table(OpenEraMale$Country)
names(dataTable)[dataTable==max(dataTable)]## [1] " USA"1-max(prop.table(dataTable))## [1] 0.7115385sum(prop.table(dataTable)**2)## [1] 0.1272189library(DescTools)
Herfindahl(dataTable)## [1] 0.12721891/sum(prop.table(dataTable)**2)## [1] 7.860465library(htmltab)
WimbledonFemale="https://en.wikipedia.org/wiki/List_of_Wimbledon_ladies%27_singles_champions"
OpenEraFemale = htmltab(doc = WimbledonFemale,
which ='//*[@id="mw-content-text"]/div/table[4]')
OpenEraFemale## Year Country Champion Country Runner-up
## 2 1968 USA Billie Jean King AUS Judy Tegart
## 3 1969 GBR Ann Jones USA Billie Jean King
## 4 1970 AUS Margaret Court USA Billie Jean King
## 5 1971 AUS Evonne Goolagong AUS Margaret Court
## 6 1972 USA Billie Jean King AUS Evonne Goolagong
## 7 1973 USA Billie Jean King USA Chris Evert
## 8 1974 USA Chris Evert URS Olga Morozova
## 9 1975 USA Billie Jean King AUS Evonne Goolagong Cawley
## 10 1976 USA Chris Evert AUS Evonne Goolagong Cawley
## 11 1977 GBR Virginia Wade NED Betty Stöve
## 12 1978 USA Martina Navratilova USA Chris Evert
## 13 1979 USA Martina Navratilova USA Chris Evert Lloyd
## 14 1980 AUS Evonne Goolagong Cawley USA Chris Evert Lloyd
## 15 1981 USA Chris Evert Lloyd TCH Hana Mandlíková
## 16 1982 USA Martina Navratilova USA Chris Evert Lloyd
## 17 1983 USA Martina Navratilova USA Andrea Jaeger
## 18 1984 USA Martina Navratilova USA Chris Evert Lloyd
## 19 1985 USA Martina Navratilova USA Chris Evert Lloyd
## 20 1986 USA Martina Navratilova TCH Hana Mandlíková
## 21 1987 USA Martina Navratilova FRG Steffi Graf
## 22 1988 FRG Steffi Graf USA Martina Navratilova
## 23 1989 FRG Steffi Graf USA Martina Navratilova
## 24 1990 USA Martina Navratilova USA Zina Garrison
## 25 1991 GER Steffi Graf ARG Gabriela Sabatini
## 26 1992 GER Steffi Graf YUG Monica Seles
## 27 1993 GER Steffi Graf CZE Jana Novotná
## 28 1994 ESP Conchita Martínez USA Martina Navratilova
## 29 1995 GER Steffi Graf ESP Arantxa Sánchez Vicario
## 30 1996 GER Steffi Graf ESP Arantxa Sánchez Vicario
## 31 1997 SUI Martina Hingis CZE Jana Novotná
## 32 1998 CZE Jana Novotná FRA Nathalie Tauziat
## 33 1999 USA Lindsay Davenport GER Steffi Graf
## 34 2000 USA Venus Williams USA Lindsay Davenport
## 35 2001 USA Venus Williams BEL Justine Henin
## 36 2002 USA Serena Williams USA Venus Williams
## 37 2003 USA Serena Williams USA Venus Williams
## 38 2004 RUS Maria Sharapova USA Serena Williams
## 39 2005 USA Venus Williams USA Lindsay Davenport
## 40 2006 FRA Amélie Mauresmo BEL Justine Henin
## 41 2007 USA Venus Williams FRA Marion Bartoli
## 42 2008 USA Venus Williams USA Serena Williams
## 43 2009 USA Serena Williams USA Venus Williams
## 44 2010 USA Serena Williams RUS Vera Zvonareva
## 45 2011 CZE Petra Kvitová RUS Maria Sharapova
## 46 2012 USA Serena Williams POL Agnieszka Radwańska
## 47 2013 FRA Marion Bartoli GER Sabine Lisicki
## 48 2014 CZE Petra Kvitová CAN Eugenie Bouchard
## 49 2015 USA Serena Williams ESP Garbiñe Muguruza
## 50 2016 USA Serena Williams GER Angelique Kerber
## 51 2017 ESP Garbiñe Muguruza USA Venus Williams
## 52 2018 GER Angelique Kerber USA Serena Williams
## 53 2019 ROU Simona Halep USA Serena Williams
## Score in the final
## 2 9–7, 7–5
## 3 3–6, 6–3, 6–2
## 4 14–12, 11–9
## 5 6–4, 6–1
## 6 6–3, 6–3
## 7 6–0, 7–5
## 8 6–0, 6–4
## 9 6–0, 6–1
## 10 6–3, 4–6, 8–6
## 11 4–6, 6–3, 6–1
## 12 2–6, 6–4, 7–5
## 13 6–4, 6–4
## 14 6–1, 7–6
## 15 6–2, 6–2
## 16 6–1, 3–6, 6–2
## 17 6–0, 6–3
## 18 7–6, 6–2
## 19 4–6, 6–3, 6–2
## 20 7–6, 6–3
## 21 7–5, 6–3
## 22 5–7, 6–2, 6–1
## 23 6–2, 6–7, 6–1
## 24 6–4, 6–1
## 25 6–4, 3–6, 8–6
## 26 6–2, 6–1
## 27 7–6, 1–6, 6–4
## 28 6–4, 3–6, 6–3
## 29 4–6, 6–1, 7–5
## 30 6–3, 7–5
## 31 2–6, 6–3, 6–3
## 32 6–4, 7–6
## 33 6–4, 7–5
## 34 6–3, 7–6
## 35 6–1, 3–6, 6–0
## 36 7–6, 6–3
## 37 4–6, 6–4, 6–2
## 38 6–1, 6–4
## 39 4–6, 7–6, 9–7
## 40 2–6, 6–3, 6–4
## 41 6–4, 6–1
## 42 7–5, 6–4
## 43 7–6, 6–2
## 44 6–3, 6–2
## 45 6–3, 6–4
## 46 6–1, 5–7, 6–2
## 47 6–1, 6–4
## 48 6–3, 6–0
## 49 6–4, 6–4
## 50 7–5, 6–3
## 51 7–5, 6–0
## 52 6–3, 6–3
## 53 6–2, 6–2names(OpenEraFemale)[2] = "Sede"
names(OpenEraFemale)## [1] "Year" "Sede" "Champion"
## [4] "Country" "Runner-up" "Score in the final"OpenEraFemale=OpenEraFemale[,c("Champion", "Country")]
OpenEraFemale## Champion Country
## 2 Billie Jean King AUS
## 3 Ann Jones USA
## 4 Margaret Court USA
## 5 Evonne Goolagong AUS
## 6 Billie Jean King AUS
## 7 Billie Jean King USA
## 8 Chris Evert URS
## 9 Billie Jean King AUS
## 10 Chris Evert AUS
## 11 Virginia Wade NED
## 12 Martina Navratilova USA
## 13 Martina Navratilova USA
## 14 Evonne Goolagong Cawley USA
## 15 Chris Evert Lloyd TCH
## 16 Martina Navratilova USA
## 17 Martina Navratilova USA
## 18 Martina Navratilova USA
## 19 Martina Navratilova USA
## 20 Martina Navratilova TCH
## 21 Martina Navratilova FRG
## 22 Steffi Graf USA
## 23 Steffi Graf USA
## 24 Martina Navratilova USA
## 25 Steffi Graf ARG
## 26 Steffi Graf YUG
## 27 Steffi Graf CZE
## 28 Conchita Martínez USA
## 29 Steffi Graf ESP
## 30 Steffi Graf ESP
## 31 Martina Hingis CZE
## 32 Jana Novotná FRA
## 33 Lindsay Davenport GER
## 34 Venus Williams USA
## 35 Venus Williams BEL
## 36 Serena Williams USA
## 37 Serena Williams USA
## 38 Maria Sharapova USA
## 39 Venus Williams USA
## 40 Amélie Mauresmo BEL
## 41 Venus Williams FRA
## 42 Venus Williams USA
## 43 Serena Williams USA
## 44 Serena Williams RUS
## 45 Petra Kvitová RUS
## 46 Serena Williams POL
## 47 Marion Bartoli GER
## 48 Petra Kvitová CAN
## 49 Serena Williams ESP
## 50 Serena Williams GER
## 51 Garbiñe Muguruza USA
## 52 Angelique Kerber USA
## 53 Simona Halep USAtable(OpenEraFemale$Country)##
## ARG AUS BEL CAN CZE ESP FRA FRG GER NED POL RUS TCH URS USA
## 1 5 2 1 2 3 2 1 3 1 1 2 2 1 24
## YUG
## 1library(ggplot2)
base = ggplot(data=OpenEraFemale,aes(x=Country))
bar1 = base + geom_bar()
bar1
bar1 + labs(x="País",
y="Campeonas",
title="Campeonas por país",
subtitle = "Wimbledon ladies' Open Era",
caption = "Fuente: Wikipedia")
dataTable<-table(OpenEraFemale$Country)
names(dataTable)[dataTable==max(dataTable)]## [1] " USA"1-max(prop.table(dataTable))## [1] 0.5384615sum(prop.table(dataTable)**2)## [1] 0.2389053library(DescTools)
Herfindahl(dataTable)## [1] 0.23890531/sum(prop.table(dataTable)**2)## [1] 4.185759#La mayor cantidad de campeones tienen como pais de origen a Estados Unidos, estando en segundo lugar Australia, tanto en el género masculino y femenino.