Frecuencia de Actividades deportivas y culturales en alumnos

Generar los datos

# Preferencias de actividad deportiva y cultural en una muestra de 30 alumnos
actividad <- c('Dibujo', 'Tiro con Arco', 'Baile', 'Voleybol',
'Futbol', 'Americano', 'Natación', 'Tahitiano',
'Natación', 'Tiro con Arco', 'Futbol', 'Americano',
'Basquetbol', 'Banda de Guerra', 'Voleybol', 'Futbol', 'Oratoria', 'Tahitiano', 'Box', 'Futbol', 'Voleybol','Natación', 'Pesas', 'Fotografía', '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"       "Natación"        "Tahitiano"      
##  [9] "Natación"        "Tiro con Arco"   "Futbol"          "Americano"      
## [13] "Basquetbol"      "Banda de Guerra" "Voleybol"        "Futbol"         
## [17] "Oratoria"        "Tahitiano"       "Box"             "Futbol"         
## [21] "Voleybol"        "Natación"        "Pesas"           "Fotografía"     
## [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      Fotografía 
##               3               2               5               1               1 
##          Futbol    Halterofilia        Natación        Oratoria           Pesas 
##               4               1               3               1               1 
##       Tahitiano   Tiro con Arco        Voleybol 
##               2               2               4
n = 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      Fotografía 
##      0.07894737      0.05263158      0.13157895      0.02631579      0.02631579 
##          Futbol    Halterofilia        Natación        Oratoria           Pesas 
##      0.10526316      0.02631579      0.07894737      0.02631579      0.02631579 
##       Tahitiano   Tiro con Arco        Voleybol 
##      0.05263158      0.05263158      0.10526316
frec.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      Fotografía 
##        7.894737        5.263158       13.157895        2.631579        2.631579 
##          Futbol    Halterofilia        Natación        Oratoria           Pesas 
##       10.526316        2.631579        7.894737        2.631579        2.631579 
##       Tahitiano   Tiro con Arco        Voleybol 
##        5.263158        5.263158       10.526316

Generar la tabla de frecuencia

#Quiero los datos en una tabla bonita
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    1
## 10      Fotografía    1
## 11          Futbol    4
## 12    Halterofilia    1
## 13        Natación    3
## 14        Oratoria    1
## 15           Pesas    1
## 16       Tahitiano    2
## 17   Tiro con Arco    2
## 18        Voleybol    4
#Nuevas columnas en tablafrecuencia
tablafrecuencia$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    1    0.02631579        2.631579
## 10      Fotografía    1    0.02631579        2.631579
## 11          Futbol    4    0.10526316       10.526316
## 12    Halterofilia    1    0.02631579        2.631579
## 13        Natación    3    0.07894737        7.894737
## 14        Oratoria    1    0.02631579        2.631579
## 15           Pesas    1    0.02631579        2.631579
## 16       Tahitiano    2    0.05263158        5.263158
## 17   Tiro con Arco    2    0.05263158        5.263158
## 18        Voleybol    4    0.10526316       10.526316

Visualizar los datos

plot(tablafrecuencia$actividad, tablafrecuencia$Freq)

### Diagrama de barra

barplot(tablafrecuencia$Freq, names.arg = tablafrecuencia$actividad)

### Mayor y menor frecuencia

max(tablafrecuencia$Freq)
## [1] 5
min(tablafrecuencia$Freq)
## [1] 1
# Todas las columnas de tablafrecuencia
tablafrecuencia[which.max(tablafrecuencia$Freq),]
##   actividad Freq frec.relativa frec.porcentual
## 8    Dibujo    5     0.1315789        13.15789

Comentario

# El tipo de análisis que se llevo a cabo fue la estadística descriptiva, desarrollamos las habilidades de Frecuencias,
# Frecuencias relativas y porcentuales y el como Visualizar datos en diferentes tipos de de graficas que representan la frecuencia de cada actividad preferida por los alumnos.