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', '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"
Frecuencias
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
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 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
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 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 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 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 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 barra
barplot(tablafrecuencia$Freq, names.arg = tablafrecuencia$actividad)
Mayor y menor frecuecia 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
A travez de esta practica aprendimos a calcular la frecuencia, relativa tanto como la porcentual, despues generamos una tabla de frecuencias y la respectiva columna de frecuencia relativa y la porcentual, para finalizar se necesitaban visualizar en graficas para un mejor entendimiento de los datos facilmente.