Frecuencia de Actividades deportivas
Keyla Pineda
14/2/2020
###Frecuencia de actividades deportivas
actividad<- c("dibujo","tiro con arco", "baile", "voleybol","futbol", "americano","natacion","tahitiano","natacion","tiro con arco","futbol","americano","basquetbol","banda de guerra","voleybol","futbol","oratoria","tahitiano","box","futbol","voleybol","natacion","pesas","fotografia","basquetbol","dibujo","ajedrez","dibujo","fotografia","voleybol","halterofilia","atletismo","basquetbol","dibujo","box","atletismo","dibujo","ajedrez")
actividad## [1] "dibujo" "tiro con arco" "baile" "voleybol"
## [5] "futbol" "americano" "natacion" "tahitiano"
## [9] "natacion" "tiro con arco" "futbol" "americano"
## [13] "basquetbol" "banda de guerra" "voleybol" "futbol"
## [17] "oratoria" "tahitiano" "box" "futbol"
## [21] "voleybol" "natacion" "pesas" "fotografia"
## [25] "basquetbol" "dibujo" "ajedrez" "dibujo"
## [29] "fotografia" "voleybol" "halterofilia" "atletismo"
## [33] "basquetbol" "dibujo" "box" "atletismo"
## [37] "dibujo" "ajedrez"###FRECUENCIAS
frecuencia<- table(actividad)
frecuencia## actividad
## ajedrez americano atletismo baile banda de guerra
## 2 2 2 1 1
## basquetbol box dibujo fotografia futbol
## 3 2 5 2 4
## halterofilia natacion oratoria pesas tahitiano
## 1 3 1 1 2
## tiro con arco voleybol
## 2 4n= length(actividad)
n## [1] 38###FRECUENCIAS RELATIVAS Y PORCENTUALES
frec.relativa<- frecuencia/n
frec.relativa## actividad
## ajedrez americano atletismo baile banda de guerra
## 0.05263158 0.05263158 0.05263158 0.02631579 0.02631579
## basquetbol box dibujo fotografia futbol
## 0.07894737 0.05263158 0.13157895 0.05263158 0.10526316
## halterofilia natacion oratoria pesas tahitiano
## 0.02631579 0.07894737 0.02631579 0.02631579 0.05263158
## tiro con arco voleybol
## 0.05263158 0.10526316frec.porc<- frec.relativa*100
frec.porc## actividad
## ajedrez americano atletismo baile banda de guerra
## 5.263158 5.263158 5.263158 2.631579 2.631579
## basquetbol box dibujo fotografia futbol
## 7.894737 5.263158 13.157895 5.263158 10.526316
## halterofilia natacion oratoria pesas tahitiano
## 2.631579 7.894737 2.631579 2.631579 5.263158
## tiro con arco voleybol
## 5.263158 10.526316GENERAR LA TABLA DE FRECUENCIA
tablafrecuencia<- transform(frecuencia)
tablafrecuencia## actividad Freq
## 1 ajedrez 2
## 2 americano 2
## 3 atletismo 2
## 4 baile 1
## 5 banda de guerra 1
## 6 basquetbol 3
## 7 box 2
## 8 dibujo 5
## 9 fotografia 2
## 10 futbol 4
## 11 halterofilia 1
## 12 natacion 3
## 13 oratoria 1
## 14 pesas 1
## 15 tahitiano 2
## 16 tiro con arco 2
## 17 voleybol 4tablafrecuencia$frec.relativa=frec.relativa
tablafrecuencia$frec.porcentual= frec.porc
tablafrecuencia## actividad Freq frec.relativa frec.porcentual
## 1 ajedrez 2 0.05263158 5.263158
## 2 americano 2 0.05263158 5.263158
## 3 atletismo 2 0.05263158 5.263158
## 4 baile 1 0.02631579 2.631579
## 5 banda de guerra 1 0.02631579 2.631579
## 6 basquetbol 3 0.07894737 7.894737
## 7 box 2 0.05263158 5.263158
## 8 dibujo 5 0.13157895 13.157895
## 9 fotografia 2 0.05263158 5.263158
## 10 futbol 4 0.10526316 10.526316
## 11 halterofilia 1 0.02631579 2.631579
## 12 natacion 3 0.07894737 7.894737
## 13 oratoria 1 0.02631579 2.631579
## 14 pesas 1 0.02631579 2.631579
## 15 tahitiano 2 0.05263158 5.263158
## 16 tiro con arco 2 0.05263158 5.263158
## 17 voleybol 4 0.10526316 10.526316###VISUALIZAR DATOS
plot(tablafrecuencia$actividad, tablafrecuencia$Freq)
###DIAGRAMA DE BARRAS
barplot(tablafrecuencia$Freq, names.arg= tablafrecuencia$actividad)
###MAYOR Y MENOR FRECUENCIA
max(tablafrecuencia$Freq)## [1] 5min(tablafrecuencia$Freq)## [1] 1tablafrecuencia[which.max(tablafrecuencia$Freq),]## actividad Freq frec.relativa frec.porcentual
## 8 dibujo 5 0.1315789 13.15789