library(readxl)
library(formattable)
df <- read_excel("рейтинг.xlsx")
formattable(df)
| № | Мужчины | Рейтинг | Женщины | рейтинг |
|---|---|---|---|---|
| 1 | Jannik Sinner | 11.830 | Aryna Sabalenka | 9416 |
| 2 | Alexander Zverev | 7.915 | Iga Swiatek | 8370 |
| 3 | Carlos Alcaraz | 7.010 | Coco Gauff | 6530 |
| 4 | Taylor Fritz | 5.100 | Jasmine Paolini | 5344 |
| 5 | Daniil Medvedev | 5.030 | Qinwen Zheng | 5340 |
| 6 | Casper Ruud | 4.255 | Elena Rybakina | 5171 |
| 7 | Novak Djokovic | 3.910 | Jessica Pegula | 4705 |
| 8 | Andrey Rublev | 3.760 | Emma Navarro | 3589 |
| 9 | Alex de Minaur | 3.745 | Daria Kasatkina | 3368 |
| 10 | Grigor Dimitrov | 3.350 | Barbora Krejcikova | 3214 |
В большом теннисе существует система рейтинга, как для с которой можно ознакомиться на WTA для женщин и на ATP для мужчин.
На одном из турниров Большого Шлема - Открытом чемпионате Австралии - призовой фонд суммарно составил практически 57 млн долларов США!
library(tidyverse)
df1 <- read_excel("призовые.xlsx")
df1 %>%
ggplot(aes(`Год`, `Размер призовых, млн авст. долл.`)) +
geom_point() +
geom_line() +
theme_classic() +
ggtitle ("Сумма призовых на AO за 2014-2024")
Арина Соболенко и Янник Синнер за победу в личном разряде на Australian Open получили по 2 млн долларов США каждый.
Вывод: заниматься спортом иногда даже выгодно)