Frecuencia de actividades
Victor Borjas, Luis Renteria
2/14/2020
Acividades
actividad <- c("Dibujo", "Tiro arco","Baile", "Voleybol", "Futbol", "Americano", "Natación","Tahitiano", "Natación","Tiro 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","Atletismo","Basquetbol","Dibujo","Box","Atletismo","Dibujo","Ajedrez" )
actividad## [1] "Dibujo" "Tiro arco" "Baile" "Voleybol"
## [5] "Futbol" "Americano" "Natación" "Tahitiano"
## [9] "Natación" "Tiro 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] "Atletismo" "Basquetbol" "Dibujo" "Box"
## [37] "Atletismo" "Dibujo" "Ajedrez"Tabla Frecuencia
frecuencia<-table(actividad)frecuencia## actividad
## Ajedrez Americano Atletismo Baile Banda de guerra
## 2 2 3 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 arco Voleybol
## 2 2 4Frecuencia de actividades
frecuencia<-table(actividad) frecuencia
frecuencia<-table(actividad)
frecuencia## actividad
## Ajedrez Americano Atletismo Baile Banda de guerra
## 2 2 3 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 arco Voleybol
## 2 2 4n=length(actividad) n
n=length(actividad)
n## [1] 39Grafica
barplot(frecuencia)
Tabla de frecuencias
frec.relativa <- frecuencia/n
frec.relativa## actividad
## Ajedrez Americano Atletismo Baile Banda de guerra
## 0.05128205 0.05128205 0.07692308 0.02564103 0.02564103
## Basquetbol Box Dibujo Fotografia Fotografía
## 0.07692308 0.05128205 0.12820513 0.02564103 0.02564103
## Futbol Halterofilia Natación Oratoria Pesas
## 0.10256410 0.02564103 0.07692308 0.02564103 0.02564103
## Tahitiano Tiro arco Voleybol
## 0.05128205 0.05128205 0.10256410Tabla de Frecuencias
frec.porc <- frec.relativa*100
frec.porc## actividad
## Ajedrez Americano Atletismo Baile Banda de guerra
## 5.128205 5.128205 7.692308 2.564103 2.564103
## Basquetbol Box Dibujo Fotografia Fotografía
## 7.692308 5.128205 12.820513 2.564103 2.564103
## Futbol Halterofilia Natación Oratoria Pesas
## 10.256410 2.564103 7.692308 2.564103 2.564103
## Tahitiano Tiro arco Voleybol
## 5.128205 5.128205 10.256410tablafrecuencia <- transform(frecuencia)
tablafrecuencia## actividad Freq
## 1 Ajedrez 2
## 2 Americano 2
## 3 Atletismo 3
## 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 arco 2
## 18 Voleybol 4#Nuevas columnas en tabla frecuencia
tablafrecuencia$frec.relativa=frec.relativatablafrecuencia$frec.porcentual= frec.porctablafrecuencia## actividad Freq frec.relativa frec.porcentual
## 1 Ajedrez 2 0.05128205 5.128205
## 2 Americano 2 0.05128205 5.128205
## 3 Atletismo 3 0.07692308 7.692308
## 4 Baile 1 0.02564103 2.564103
## 5 Banda de guerra 1 0.02564103 2.564103
## 6 Basquetbol 3 0.07692308 7.692308
## 7 Box 2 0.05128205 5.128205
## 8 Dibujo 5 0.12820513 12.820513
## 9 Fotografia 1 0.02564103 2.564103
## 10 Fotografía 1 0.02564103 2.564103
## 11 Futbol 4 0.10256410 10.256410
## 12 Halterofilia 1 0.02564103 2.564103
## 13 Natación 3 0.07692308 7.692308
## 14 Oratoria 1 0.02564103 2.564103
## 15 Pesas 1 0.02564103 2.564103
## 16 Tahitiano 2 0.05128205 5.128205
## 17 Tiro arco 2 0.05128205 5.128205
## 18 Voleybol 4 0.10256410 10.256410