# 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"
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
barplot(frecuencia) # Gráfica de barras

# Frecuencia relativa de los datos
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
# 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      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
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
tablafrecuencia$frec.relativa = frec.relativa
tablafrecuencia$frec.porcentual = frec.porc

Se puede apreciar que la actividad extra escolar preferida por un grupo de 30 personas en el instituto tecnologico de durango es dibujo con una frecuencia relativa de 0.1315 y una frecuencia porcentual de 13.15% y las de menor frecuencia con solo un voto son fotografia, banda de guerra, oratoria, helterofilia y pesas con tan solo una frecuencia relativa de un 0.263 y una frecuencia porcentual de 2.63% Con estos datos podemos concluir en que la imprementacion de buenas entrategias para animar a los alumnos a poder formar parte de las actividades es una herramienta estrategica que nos permitira poder captar su atencion. Al igual que se debe material y grupos necesarios para la actividad de dibujo ya que es una de las actividades mas solicitadas.