# 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
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
#longitud
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
#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 tabla de frecuencia de manera presentable
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 frecuencia
max(tablafrecuencia$Freq)
## [1] 5
#Menor
min(tablafrecuencia$Freq)
## [1] 1
#Todas las columnas de tablafrecuencia
tablafrecuencia[which.max(tablafrecuencia$Freq),]
## actividad Freq frec.relativa frec.porcentual
## 8 Dibujo 5 0.1315789 13.15789
#Comentarios
#En esta practica se pudo observar que mediante datos de actividades deportivas se observo la frecuencia con la que
#es muy ulitilzado dicho deporte y con que frecuencia las personas la practican
#En esta practica se realizo el analisis cuantitativo ya que se tomo en cuenta
#la cantidad con la que se practican estos deportes
#En resultados se obtuvo que la actividad de Box fue la mas concurrida por el grupo
#En cuestion de habilidades se puede decir que podemos generar tablas mas presentables,
#ademas de sacar frecuencia porcentual y frecuencia relativa de cualquier grupo de datos
#En valores estadisticos fueron generados dentro del grupo a partir de actividades deportivas
#La grafica representa la frecuencia con la que se practica el deporte