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', '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"

Frecuencias

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

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      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
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 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       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
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)

#### Diagrama de barra

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

#### Mayor y menor frecuencia

max(tablafrecuencia$Freq)
## [1] 5
min(tablafrecuencia$Freq)
## [1] 1
tablafrecuencia[which.max(tablafrecuencia$Freq),]
##   actividad Freq frec.relativa frec.porcentual
## 8    Dibujo    5     0.1315789        13.15789
La práctica consistió en preguntar a los alumnos del grupo de probabilidad de la carrera de ingeniería en sistemas computacionales del instituto tecnológico de Durango su actividad deportiva favorita, una vez recolectados los datos, se procedió a generar una tabla de frecuencias. Primeramente, se generaron las frecuencias de cada actividad, posteriormente, se generaron las frecuencias relativas y porcentuales, para que en seguida, se generara la tabla de frecuencias ya terminada. Después, se generó un diagrama de barras para así, poder visualizar e interpretar los datos de una manera más clara y concisa. Para finalizar la práctica, se determinaron la frecuencia menor y mayor, luego se procediera a mostrar la actividad con mayor frecuencia, junto con las veces que se escogió dicha actividad y su frecuencia porcentual y relativa.