GRAND SLAM TENIS

José María Fernández (jofercar@alumni.uv.es)

---

Trabajo elaborado para la asignatura “Programación y manejo de datos en la era del Big Data” de la Universitat de València durante el curso 2020-2021. El repo del trabajo está aquí. La página web de la asignatura y los trabajos de mis compañeros pueden verse aquí.

---

1. Introducción

En este trabajo muestro la cantidad de Grand Slam ganados por los mejores jugadores de la historia del Tenis.Donde podremos ver que hay algunos jugadores igualados pero existe un claro dominio por parte de Rafael Nadal en Roland Garros. He decidido realizar este trabajo porque me apasiona el tenis desde muy pequeño y por ello, me resulta interesante dar a conocer los siguientes datos.

---

2. Datos

Información

He escogido la información de las páginas ATPTour, Wikipedia y el periódico “EL PAÍS” para proceder a elaborar tablas en excel que almaceno en la carpeta datos y las importo mediante los códigos que se observan en la pestaña “Códigos de datos importados”

Códigos de datos importados

grand_slam_ganados<- read_excel("./datos/grand_slam.xlsx")

ranking_por_paises <- read_excel("./datos/ranking_por_paises.xlsx")

---

3. Ranking por jugadores

Hasta el momento, 54 tenistas han ganado al menos un Grand Slam en la era abierta.En la siguiente tabla, se destaca a los 13 jugadores que han tenido una mayor cantidad de Grand Slam a lo largo de la historia del tenis. Por un lado, se pueden observar nombres de jugadores actualmente en activo como Roger Federer y por otro lado, jugadores retirados como Boris Becker.

En la segunda pestaña, podemos observar en un gráfico de barras el ranking de Grand Slam. A un lado, el nombre de los tenistas y al otro, el total de Grand Slam conseguidos por cada jugador. La superioridad de Rafael Nadal sobre tierra batida es incuestionable. Mucho más cuando el terreno se acota a Roland Garros. En el Grand Slam francés ha ganado la mayor cifra de títulos que cualquier jugador haya ganado jamás en un mismo escenario. Y gracias a ello, ha conseguido igualarse a Roger Federer en cantidad de Grand Slam conseguidos hasta la fecha.

Posiciones

Pos.	Nombre	Total	Australia	Roland Garros	Wimbledon	USA
1	Roger Federer	20	6	1	8	5
2	Rafael Nadal	20	1	13	2	4
3	Novak Djokovic	17	8	1	5	3
4	Pete Sampras	14	2	0	7	5
5	Björn Borg	11	0	6	5	0
6	Ivan Lendl	8	2	3	0	3
7	Jimmy Connors	8	1	0	2	5
8	Andre Agassi	8	4	1	1	2
9	John McEnroe	7	0	0	3	4
10	Stefan Edberg	6	2	0	2	2
11	Boris Becker	6	2	0	3	1
12	John Newcombe	5	2	0	2	1
13	Rod Laver	5	1	1	2	1

Gráfica

---

4.Diferentes premios y superficies

Premios

Junto a los trofeos, los jugadores reciben un premio monetario al proclamarse campeones.

Los tenistas ganan alrededor de 40.000 euros por participar en una primera ronda de un Grand Slam, más del doble de lo que ingresan en una primera ronda de un torneo Masters 1.000 (siguiente campeonato en importancia), y los premios por ganar un grande son mucho mayores que en cualquier torneo de la temporada.

A pesar de que depende de la recaudación y del Grand Slam que se trate, los tenistas que se proclaman campeones en la final reciben un premio que oscila entre los 2,5-3 millones de euros.

Superficies

En la siguiente imagen tenemos los diferentes tipos de pistas existentes y su composición.

En primer lugar, tierra batida. Este tipo de pistas están hechas de esquisto, piedra y arcilla.

En segundo y cuarto lugar de la imagen tenemos las pistas duras o de cemento. Estos tipos de pistas evitan irregularidades en la trayectoria de la pelota y proporcionan un juego intermedio.

En tercer lugar, las pistas de hierba donde el césped es la superficie original del tenis. Se trata de una superficie rápida, de bote irregular y la menos utilizada. La construcción y mantenimiento de este tipo de superficies es costoso y complejo.

---

5. Mapas de los estadios

Los siguientes mapas nos muestran la ubicación de cada uno de los estadios a partir de sus coordenadas correspondientes.

En primer lugar, en el MAPA 1 he decidido agrupar Roland Garros que se ubica en el sector sudoccidental de París, en el XVI distrito y, Wimbledon que se encuentra en el All England Lawn Tennis y Croquet Club de Londres.

En segundo lugar, en el MAPA 2 ubico el USTA Billie Jean King National Tennis Center que está localizado en el Flushing Meadows-Corona Park, en el borough de Queens en Nueva York y es la sede del Abierto de los Estados Unidos.

En tercer lugar, en el MAPA 3 tenemos el Rod Laver Arena, un recinto multipropósito usado principalmente como estadio de tenis para el Abierto de Australia y que es parte del complejo del parque de Melbourne.

MAPA 1

MAPA 2

MAPA 3

---

6. Top 4 mejores

En esta gráfica si deslizamos el ratón por las barras podemos observar más detalladamente la cantidad de torneos Wimbledon ganados por cada uno de los 4 mejores en el ranking de Grand Slam. Cada uno tiene una distinta tonalidad de azul dependiendo de la cantidad que hayan ganado. Sin embargo, su orden en la gráfica corresponde al total de Grand Slam ganados entre los citados anteriormente.

Además, en la parte superior de la gráfica tenemos varias opciones por si se quiere descargar la gráfica como una imagen con formato png, también hacer zoom, entre otras.

Gráfica

---

7. El punto más largo de la historia

Con 54 golpes este punto que disputaron Djokovic vs Nadal en el Us Open 2013 se convirtió en el más largo de la historia.

Rafa Nadal se proclamó campeón del US Open después de doblegar en cuatro sets a Novak Djokovic en la final. Se trataba del título número 60 de su carrera, su 13º Grand Slam y la segunda vez que se coronaba en Nueva York.

Vídeo

---

8. Ranking por países

En la siguiente tabla podemos consultar el top ten de países con más Grand Slams de la historia. Tenemos las cifras totales y a su vez, de manera más específica la cantidad ganada por cada país en cada uno de los torneos.

Vemos como USA se encuentra a día de hoy dominando con diferencia de los demás con un total de 51 títulos y predominio en las superficies de hierba(Wimbledon) y pista dura(USA y Australia) ganados por 12 tenistas.

Roland Garros es el único Grand Slam que se le resiste a USA gracias a los españoles que tienen un alto nivel en las superificies de tierra batida. Y es por ello que, España se encuentra en segundo lugar de la tabla con un total de 31 títulos pero lejos de alcanzar a USA.

Tabla y WordCloud

Ranking	País	Total	Australia	Roland Garros	Wimbledon	USA	Nº tenistas
1	USA	51	13	4	15	19	12
2	ESPAÑA	31	1	21	3	6	8
3	SUECIA	25	6	9	7	3	4
4	SUIZA	23	7	2	8	6	2
5	AUSTRALIA	20	6	2	6	6	7
6	SERBIA	17	8	1	5	3	1
7	REPÚBLICA CHECA	12	3	5	1	3	3
8	ALEMANIA	7	2	0	4	1	2
9	ARGENTINA	6	2	2	0	2	3
10	RUSIA	4	2	1	0	1	2

---

9.Conclusión

Comparando las dos tablas, entre jugadores y países cabe destacar que los tres primeros jugadores y que actualmente están activamente jugando, han aportado gran parte de los títulos de sus respectivos países a lo largo de su carrera tenística.

Aunque podemos observar a Rafael Nadal y Roger Federer igualados en el ranking de Grand Slam, los duelos entre el español y el suizo vienen de lejos. Desde aquel primer partido en el Master 1000 de Miami en 2004, se han enfrentado en 40 ocasiones con un balance positivo para Nadal (24-16). Aunque el suizo cuenta con más títulos totales, Rafael Nadal le ha alcanzado en Grand Slams y ha conseguido más Máster 1000.

“EL éxito no es la victoria, sino todo lo que has peleado por ganar”. Rafael Nadal

---

10. Referencias

• Enlace a ATPTour

• Enlace a Wikipedia

• Enlace a ELPAIS

• Enlace a Marca

• Enlace a Tutoriales

---

Para acabar este chunk para incluir tu session info:

sessioninfo::session_info() %>% details::details(summary = 'current session info') 

current session info

- Session info ---------------------------------------------------------------
 setting  value                       
 version  R version 4.0.2 (2020-06-22)
 os       Windows 10 x64              
 system   x86_64, mingw32             
 ui       RTerm                       
 language (EN)                        
 collate  Spanish_Spain.1252          
 ctype    Spanish_Spain.1252          
 tz       Europe/Paris                
 date     2021-01-11                  

- Packages -------------------------------------------------------------------
 package     * version    date       lib source                        
 assertthat    0.2.1      2019-03-21 [1] CRAN (R 4.0.3)                
 backports     1.2.1      2020-12-09 [1] CRAN (R 4.0.2)                
 broom         0.7.2      2020-10-20 [1] CRAN (R 4.0.3)                
 cellranger    1.1.0      2016-07-27 [1] CRAN (R 4.0.3)                
 cli           2.2.0      2020-11-20 [1] CRAN (R 4.0.3)                
 clipr         0.7.1      2020-10-08 [1] CRAN (R 4.0.3)                
 colorspace    2.0-0      2020-11-11 [1] CRAN (R 4.0.3)                
 crayon        1.3.4      2017-09-16 [1] CRAN (R 4.0.3)                
 crosstalk     1.1.0.1    2020-03-13 [1] CRAN (R 4.0.3)                
 curl          4.3        2019-12-02 [1] CRAN (R 4.0.3)                
 data.table    1.13.4     2020-12-08 [1] CRAN (R 4.0.3)                
 DBI           1.1.0      2019-12-15 [1] CRAN (R 4.0.3)                
 dbplyr        2.0.0      2020-11-03 [1] CRAN (R 4.0.3)                
 desc          1.2.0      2018-05-01 [1] CRAN (R 4.0.3)                
 details       0.2.1      2020-01-12 [1] CRAN (R 4.0.3)                
 digest        0.6.27     2020-10-24 [1] CRAN (R 4.0.3)                
 dplyr       * 1.0.2      2020-08-18 [1] CRAN (R 4.0.3)                
 ellipsis      0.3.1      2020-05-15 [1] CRAN (R 4.0.3)                
 evaluate      0.14       2019-05-28 [1] CRAN (R 4.0.3)                
 extrafont     0.17       2014-12-08 [1] CRAN (R 4.0.3)                
 extrafontdb   1.0        2012-06-11 [1] CRAN (R 4.0.3)                
 fansi         0.4.1      2020-01-08 [1] CRAN (R 4.0.3)                
 farver        2.0.3      2020-01-16 [1] CRAN (R 4.0.3)                
 forcats     * 0.5.0      2020-03-01 [1] CRAN (R 4.0.3)                
 fs            1.5.0      2020-07-31 [1] CRAN (R 4.0.3)                
 gdtools       0.2.2      2020-04-03 [1] CRAN (R 4.0.3)                
 generics      0.1.0      2020-10-31 [1] CRAN (R 4.0.3)                
 gganimate   * 1.0.7      2020-10-15 [1] CRAN (R 4.0.3)                
 ggplot2     * 3.3.2      2020-06-19 [1] CRAN (R 4.0.3)                
 gifski        0.8.6      2018-09-28 [1] CRAN (R 4.0.3)                
 glue          1.4.2      2020-08-27 [1] CRAN (R 4.0.3)                
 gridExtra     2.3        2017-09-09 [1] CRAN (R 4.0.3)                
 gt          * 0.2.2      2020-12-14 [1] Github (rstudio/gt@bae32f4)   
 gtable        0.3.0      2019-03-25 [1] CRAN (R 4.0.3)                
 haven         2.3.1      2020-06-01 [1] CRAN (R 4.0.3)                
 here          1.0.1      2020-12-13 [1] CRAN (R 4.0.2)                
 highr         0.8        2019-03-20 [1] CRAN (R 4.0.3)                
 hms           0.5.3      2020-01-08 [1] CRAN (R 4.0.3)                
 hrbrthemes  * 0.8.0      2020-03-06 [1] CRAN (R 4.0.3)                
 htmltools     0.5.0      2020-06-16 [1] CRAN (R 4.0.3)                
 htmlwidgets   1.5.3      2020-12-10 [1] CRAN (R 4.0.3)                
 httr          1.4.2      2020-07-20 [1] CRAN (R 4.0.3)                
 jsonlite      1.7.2      2020-12-09 [1] CRAN (R 4.0.3)                
 kableExtra  * 1.3.1      2020-10-22 [1] CRAN (R 4.0.3)                
 klippy      * 0.0.0.9500 2020-12-17 [1] Github (rlesur/klippy@378c247)
 knitr       * 1.30       2020-09-22 [1] CRAN (R 4.0.3)                
 labeling      0.4.2      2020-10-20 [1] CRAN (R 4.0.3)                
 lazyeval      0.2.2      2019-03-15 [1] CRAN (R 4.0.3)                
 leaflet     * 2.0.3      2019-11-16 [1] CRAN (R 4.0.3)                
 lifecycle     0.2.0      2020-03-06 [1] CRAN (R 4.0.3)                
 lubridate     1.7.9.2    2020-11-13 [1] CRAN (R 4.0.3)                
 magrittr      2.0.1      2020-11-17 [1] CRAN (R 4.0.3)                
 modelr        0.1.8      2020-05-19 [1] CRAN (R 4.0.3)                
 munsell       0.5.0      2018-06-12 [1] CRAN (R 4.0.3)                
 pillar        1.4.7      2020-11-20 [1] CRAN (R 4.0.3)                
 pkgconfig     2.0.3      2019-09-22 [1] CRAN (R 4.0.3)                
 plotly      * 4.9.2.1    2020-04-04 [1] CRAN (R 4.0.3)                
 png           0.1-7      2013-12-03 [1] CRAN (R 4.0.3)                
 prettyunits   1.1.1      2020-01-24 [1] CRAN (R 4.0.3)                
 progress      1.2.2      2019-05-16 [1] CRAN (R 4.0.3)                
 purrr       * 0.3.4      2020-04-17 [1] CRAN (R 4.0.3)                
 R6            2.5.0      2020-10-28 [1] CRAN (R 4.0.3)                
 Rcpp          1.0.5      2020-07-06 [1] CRAN (R 4.0.3)                
 reactable   * 0.2.3      2020-10-04 [1] CRAN (R 4.0.3)                
 readr       * 1.4.0      2020-10-05 [1] CRAN (R 4.0.3)                
 readxl      * 1.3.1      2019-03-13 [1] CRAN (R 4.0.3)                
 reprex        0.3.0      2019-05-16 [1] CRAN (R 4.0.3)                
 rlang         0.4.9      2020-11-26 [1] CRAN (R 4.0.3)                
 rmarkdown     2.5        2020-10-21 [1] CRAN (R 4.0.3)                
 rprojroot     2.0.2      2020-11-15 [1] CRAN (R 4.0.3)                
 rstudioapi    0.13       2020-11-12 [1] CRAN (R 4.0.3)                
 Rttf2pt1      1.3.8      2020-01-10 [1] CRAN (R 4.0.3)                
 rvest         0.3.6      2020-07-25 [1] CRAN (R 4.0.3)                
 scales        1.1.1      2020-05-11 [1] CRAN (R 4.0.3)                
 sessioninfo   1.1.1      2018-11-05 [1] CRAN (R 4.0.3)                
 stringi       1.5.3      2020-09-09 [1] CRAN (R 4.0.3)                
 stringr     * 1.4.0      2019-02-10 [1] CRAN (R 4.0.3)                
 systemfonts   0.3.2      2020-09-29 [1] CRAN (R 4.0.3)                
 tibble      * 3.0.4      2020-10-12 [1] CRAN (R 4.0.3)                
 tidyr       * 1.1.2      2020-08-27 [1] CRAN (R 4.0.3)                
 tidyselect    1.1.0      2020-05-11 [1] CRAN (R 4.0.3)                
 tidyverse   * 1.3.0      2019-11-21 [1] CRAN (R 4.0.3)                
 tweenr        1.0.1      2018-12-14 [1] CRAN (R 4.0.3)                
 vctrs         0.3.5      2020-11-17 [1] CRAN (R 4.0.3)                
 vembedr     * 0.1.4      2020-10-10 [1] CRAN (R 4.0.3)                
 viridis     * 0.5.1      2018-03-29 [1] CRAN (R 4.0.3)                
 viridisLite * 0.3.0      2018-02-01 [1] CRAN (R 4.0.3)                
 webshot       0.5.2      2019-11-22 [1] CRAN (R 4.0.3)                
 withr         2.3.0      2020-09-22 [1] CRAN (R 4.0.3)                
 wordcloud2  * 0.2.1      2018-01-03 [1] CRAN (R 4.0.3)                
 xfun          0.19       2020-10-30 [1] CRAN (R 4.0.3)                
 xml2          1.3.2      2020-04-23 [1] CRAN (R 4.0.3)                
 yaml          2.2.1      2020-02-01 [1] CRAN (R 4.0.3)                

[1] C:/Users/Antonio/Documents/R/win-library/4.0
[2] C:/Program Files/R/R-4.0.2/library