Untitled
Rodriguez Nuñez Ingrid Jesabel 19041248
14/2/2020
Actividades deportivas y culturales de los Alumnos
##Muestra de actividades 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"###Tabla de Frecuencias
##Con los datos de la muestra se genera una tabla de frecuencias de los mismos.
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 4n = length(actividad)
n## [1] 38###Frecuencias relativas y porcentuales
###Frecuenia Relativa
##Una vez obtenida la frecuencia lo siguente a hacer es obtener la 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###Frecuencia porcuentual
##Mismo paso se repite para obtener ka 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###Tabla de Frecuencias
##Una vez obtenidas las frecuencias se genera la tabla de las mismas
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###Tabla de frecuencias relativas y porcentual
#Mismo paso con la frecuencias restantes, es decir, la relativa y procuentual.
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###Visualizacion de datos
#aqui se busca visualizar en totalidad todos los datos ingresados, y los nuevos generados
plot(tablafrecuencia$actividad, tablafrecuencia$Freq)
###Diagrama de barra
#Para mayor entendimiento y mas didactidad lo que se genera es un diagrama de barras que facilitara la vision de datos
barplot(tablafrecuencia$Freq, names.arg = tablafrecuencia$actividad)
###Mayor frecuencia
max(tablafrecuencia$Freq)## [1] 5###Menor frecuencia
min(tablafrecuencia$Freq)## [1] 1###Tabla todas las frecuencias
tablafrecuencia[which.max(tablafrecuencia$Freq),]## actividad Freq frec.relativa frec.porcentual
## 8 Dibujo 5 0.1315789 13.15789Primeramente lo que se buscó obtener es observar que actividad ya sea cultural o deportiva es de mayor gusto dentro de la muestra tomada de esos 38 individuos legando a la conclusión de que dentro de dicha muestra es más vista la actividad cultural de dibujo debido a que más alumnos gozan de dicha actividad, mismo que nos permite destacar el número de personas que fueron tomados en cuenta es decir 38 en total, dichos datos lo que nos permitirán es observar distintos tipos de frecuencia mismos que nos van a permitir darnos cuenta por completo que actividad es de mayor interés y cual termina siendo la de menor interés dentro de la muestra.
Una vez obtenidas las distintas frecuencias se puede observar que hay un patrón de repetición dentro de estas por consiguiente esto significa que contienen la misma cantidad de interés dentro del grupo algunas de estas actividades, esto se vuelve más fácil de observar si es puesto ya sea en una tabla que se muestra, o ya si se desea algo más visual en la gráfica de barras, pues de esa manera es aún más fácil observar los datos y clasificarlos, esto nos hace llegar a la única conclusión de que la actividad más solicitada es dibujo, así como la cantidad de interesados que es 5, y la de las actividades menos solicitadas tienen la cantidad de 1 solo interesado.