frecuencia de actividades deportivas

Hacer ejercicio de actividades deportivas y culturales

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"

Determinar la frecuencia y el valor de n

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

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

Determinar la 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

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       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 el dataFrame tablafrecuenia

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 barras

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

Mayores y menores frecuencias

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