Frecuencia de actividades deportivas y culturales en alumnos

# Preferencias de actividad deportiva y cultural en una muestra de 30 alumnos de la clase de Probabilidad Y estadistica 
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               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          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.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          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.526316

Generar la tabla de frecuencia

# Quiero los datos en una tablita 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    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    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    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

Visuliazar los datos

plot(tablafrecuencia$actividad, tablafrecuencia$Freq)

####Diagrama de Barras

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

####Mayor y menor frecuecia frecuencia

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

Descripcion Practica

La realizacion de esta práctica estuvo súper fácil ya que solo fue seguir el código del profesor sin embargo traté de leer lo que se tenía que hacer y intentar recrearlo por mi cuenta sin ver las instrucciones o código que el profe nos proporcionó.
Desde mi punto de vista el lenguaje R y su IDE pienso que son para análisis de datos más complejos y no para lo que lo estamos usando ya que son pocos datos y es difícil (para mi) aprender un nuevo lenguaje y aplicarlo en menos de 15 días en prácticas complejas como la practica 2 que aún no realizo pero ya leí las instrucciones.