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', 'Fotografía', '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] "Fotografía"      "Voleybol"        "Halterofilia"    "Atletismo"      
## [33] "Basquetbol"      "Dibujo"          "Box"             "Atletismo"      
## [37] "Dibujo"          "Ajedrez"

Generar la frecuencia y valor de n

frecuencia <- table(actividad)
frecuencia
## actividad
##         Ajedrez       Americano       Atletismo           Baile Banda de Guerra 
##               2               2               2               1               1 
##      Basquetbol             Box          Dibujo      Fotografía          Futbol 
##               3               2               5               2               4 
##    Halterofilia        Natación        Oratoria           Pesas       Tahitiano 
##               1               3               1               1               2 
##   Tiro con Arco        Voleybol 
##               2               4
n = length(actividad)
n
## [1] 38

Determinar frecuencia relativa

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      Fotografía          Futbol 
##      0.07894737      0.05263158      0.13157895      0.05263158      0.10526316 
##    Halterofilia        Natación        Oratoria           Pesas       Tahitiano 
##      0.02631579      0.07894737      0.02631579      0.02631579      0.05263158 
##   Tiro con Arco        Voleybol 
##      0.05263158      0.10526316

Determinar frecuencia porcentual

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      Fotografía          Futbol 
##        7.894737        5.263158       13.157895        5.263158       10.526316 
##    Halterofilia        Natación        Oratoria           Pesas       Tahitiano 
##        2.631579        7.894737        2.631579        2.631579        5.263158 
##   Tiro con Arco        Voleybol 
##        5.263158       10.526316

Generar una 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       Fotografía    2
## 10          Futbol    4
## 11    Halterofilia    1
## 12        Natación    3
## 13        Oratoria    1
## 14           Pesas    1
## 15       Tahitiano    2
## 16   Tiro con Arco    2
## 17        Voleybol    4

Nuevas columnas en el dataFrame tablafecuancias

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       Fotografía    2    0.05263158        5.263158
## 10          Futbol    4    0.10526316       10.526316
## 11    Halterofilia    1    0.02631579        2.631579
## 12        Natación    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 los datos

plot(tablafrecuencia$actividad, tablafrecuencia$Freq)

Dagrama de barras

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

Mayores y menores frecuencias

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

Interpretación.

Por lo que se puede ver tanto en las tablas como en las gráficas, la actividad más recurrida entre los alumnos del grupo 2Y es el dibujo, esto hablando tanto de las actividades deportivas como las culturales.

Las actividades deportivas más recurridas de las deportivas se tratan tanto de voleibol como el futbol. Son deportes que tienen diferencias muy grandes si hablamos tanto del tipo de cancha (mientras que el futbol es invasión de cancha, el voleibol es cancha propia) como otras tantas cosas.

En cuanto a las actividades menos recurridas, hubo varias que solamente llegaron a 1, como el baile (de varios estilos), deportes agresivos como el futbol americano. ¿A qué se debe el que estas actividades no sean tan practicadas? En cuanto a los deportes quizá podría ser por lo pesado que son estos entrenamientos o alguna otra razón.

¿Pero por qué tan baja cantidad de alumnos practicando disciplinas artísticas como el baile o la oratoria, que el costo es prácticamente bajo y los ensayos no suelen ser pesados? Puede que varíen estas respuestas, desde un simple “No me gusta esta actividad” hasta “Lo intente, pero no soy bueno para esta actividad”.