hacer ejercicios 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"
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 y 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
Diagrama de barras
barplot(tablafrecuencia$Freq, names.arg = tablafrecuencia$actividad)
En este proyecto pusimos a prueba lo aprendido en clase con una serie de doatos recolectados en el aula en base a las actividades preferidas de cada alumno del grupo, al completar el proyecto pudimos observar en base a los ala practica que la actividad de dibujo fue la que mas es practicada entre los integrantes del grupo, pudimos crear tablas y diagramas para poder visualizar los datos obtenidos ya que es una manera visual que puede llamar un poco mas la atencion del usuario en general
