Foto
Uno de mis hobbie proferidos es la natacion , ya que desde pequeña mis papas me introducieron a ese mundo. Me encanta nadar pues se siente como por si un momento no existiera nada mas que tu y el agua, una tranquilidad especial.
| Núm. | País | Total | |||
|---|---|---|---|---|---|
| 1 | 209 | 0 | 1 | 210 | |
| 2 | 60 | 64 | 64 | 188 | |
| 3 | 38 | 32 | 22 | 92 | |
| 4 | 28 | 25 | 20 | 73 | |
| 5 | 22 | 26 | 32 | 80 | |
| 6 | 21 | 18 | 19 | 58 | |
| 7 | 16 | 27 | 30 | 73 | |
| 8 | 13 | 19 | 11 | 43 | |
| 9 | 13 | 18 | 28 | 59 | |
| 10 | 12 | 21 | 26 | 59 | |
| 11 | 9 | 15 | 14 | 38 | |
| 12 | 8 | 15 | 25 | 48 | |
| 13 | 8 | 15 | 20 | 43 | |
| 14 | 6 | 6 | 6 | 18 | |
| 15 | 6 | 3 | 1 | 10 | |
| 16 | 5 | 9 | 9 | 23 | |
| 17 | 5 | 5 | 11 | 21 | |
| 18 | 4 | 5 | 1 | 10 | |
| 19 | 3 | 5 | 14 | 22 | |
| 20 | 3 | 5 | 6 | 14 | |
| 21 | 3 | 2 | 4 | 9 | |
| 22 | 3 | 0 | 1 | 4 | |
| 23 | 2 | 4 | 1 | 7 | |
| 24 | 2 | 3 | 3 | 8 | |
| 25 | 2 | 2 | 4 | 8 | |
| 26 | 2 | 1 | 3 | 6 | |
| 27 | 2 | 0 | 1 | 3 | |
| 28 | 1 | 6 | 4 | 11 | |
| 29 | 1 | 5 | 6 | 12 | |
| 30 | 1 | 4 | 9 | 14 | |
| 31 | 1 | 4 | 3 | 8 | |
| 32 | 1 | 3 | 2 | 6 | |
| 33 | 1 | 1 | 2 | 1 | |
| 34 | 1 | 2 | 2 | 5 | |
| 35 | 1 | 1 | 2 | 4 | |
| 36 | 1 | 1 | 1 | 3 | |
| 37 | 1 | 1 | 1 | 3 | |
| 38 | 1 | 1 | 0 | 2 | |
| 39 | 1 | 0 | 1 | 2 | |
| 40 | 1 | 1 | 2 | 4 | |
| 41 | 1 | 0 | 0 | 1 | |
| 42 | 1 | 0 | 0 | 1 | |
| 43 | 1 | 0 | 0 | 1 | |
| 44 | 0 | 2 | 1 | 3 | |
| 45 | 0 | 2 | 0 | 2 | |
| 46 | 0 | 1 | 3 | 4 | |
| 47 | 0 | 1 | 1 | 2 | |
| 48 | 0 | 1 | 1 | 2 | |
| 49 | 0 | 1 | 0 | 1 | |
| 50 | 0 | 1 | 0 | 1 | |
| 51 | 0 | 1 | 0 | 1 | |
| 52 | 0 | 0 | 2 | 2 | |
| 53 | 0 | 0 | 1 | 1 | |
| 53 | 0 | 0 | 1 | 1 | |
| 53 | 0 | 0 | 1 | 1 | |
| Total | 557 | 554 | 555 | 1 666 |
data <- read.csv2("registro-clubes-deportivos.csv")
library(plotly)
##
## Attaching package: 'plotly'
## The following object is masked from 'package:igraph':
##
## groups
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
library(pacman) # Package Manager
p_load(foreign, colourpicker, plotrix, PerformanceAnalytics,
ggplot2, gganimate, gifski, png, plotly, forcats,
RColorBrewer, maps, mapdata, lubridate, scales,
esquisse, cowplot, ggpubr, patchwork)
head(data,10)->C
ggplot(C) + aes(Provincia,fill=Provincia) +
geom_bar(color="black") +
theme_light() +
labs(title = "Gráfico Natacion",
x= "Provincia",
y= "Frecuencia")
ggplotly()
Imagen
# install.packages("devtools")
devtools::install_github("hadley/emo")
## Skipping install of 'emo' from a github remote, the SHA1 (3f03b114) has not changed since last install.
## Use `force = TRUE` to force installation
emo::ji("face")
## 🐵
https://ichef.bbci.co.uk/news/640/cpsprodpb/9412/production/_90760973_phelps6.jpg
Saavedra, J. M., Escalante, Y., & Rodríguez, F. A. (2003). La evolución de la natación. Lecturas: Educación Física y Deportes, Revista Digital, Buenos Aires, 7, 66.
Sanz Arribas, I. (2002). Natación y flexibilidad.
Maglischo, E. W. (2011). Natación: técnica, entrenamiento y competición. Paidotribo.
Belloch, S. L. (2002). EL ANÁLISIS BIOMECÁNICO EN NATACIÓN. Facultad de Ciencias de la Actividad Física y el Deporte. Universitat de València. Espanha.
“La vida es lo que sucede cuando estás ocupado haciendo otros planes.”
John Lennon