Frecuencia, Media y Moda de Alumnos
Jesus Ruiz Tinajero
14/2/2020
Equipo
Jesus Ruiz Tinajero
No de Control: 19041250
Link:
Angel Rafael Olivas Garcia
No de Control: 19041232
Link:
Oscar Ivan Alonso Simental
No de Control: 19041186
Link:
Juan Manuel Salcido Ruelas
No de Control: 19041252
Link:
Actividad
library(readr)
datos <- read_csv("~/Practica Excel RStudio/datosalumnos2.csv")## Parsed with column specification:
## cols(
## NO = col_double(),
## NOMBRE = col_character(),
## GENERO = col_character(),
## EDAD = col_double(),
## ESTATURA = col_double(),
## PESO = col_double()
## )datos2 <- read_csv("~/Practica Excel RStudio/datosalumnos2.csv")## Parsed with column specification:
## cols(
## NO = col_double(),
## NOMBRE = col_character(),
## GENERO = col_character(),
## EDAD = col_double(),
## ESTATURA = col_double(),
## PESO = col_double()
## )Transformar a Data.frame
datos <- as.data.frame(datos)
class(datos)## [1] "data.frame"datos## NO NOMBRE GENERO EDAD ESTATURA PESO
## 1 1 ANAND M 18 176 72
## 2 2 IVAN M 19 170 55
## 3 3 DANIEL M 18 180 78
## 4 4 KEVIN M 18 178 80
## 5 5 ANGEL M 19 173 55
## 6 6 JESUS M 18 170 70
## 7 7 MARCO M 18 180 91
## 8 8 IRVING M 19 170 70
## 9 9 ELEAZAR M 18 180 95
## 10 10 JUAN M 19 180 60
## 11 11 BORDAS M 18 185 80
## 12 12 LUIS M 19 177 92
## 13 13 JAZHIEL M 18 172 87
## 14 14 JESUS M 18 160 60
## 15 15 ALEXEI M 19 170 80
## 16 16 ALDO M 18 176 85
## 17 17 LUIS M 18 186 87
## 18 18 MARIO M 18 176 65
## 19 19 FABIO M 18 180 60
## 20 20 NOE M 19 176 77
## 21 21 ELIAS M 19 180 90
## 22 22 OSIRIS M 18 180 99
## 23 23 DIANA F 18 178 78
## 24 24 KEYLA F 18 154 63
## 25 25 VANESSA F 18 162 50
## 26 26 FANNY F 18 165 52
## 27 27 FERNANDA F 19 145 58
## 28 28 FRIDA F 18 150 55
## 29 29 JESABEL F 18 176 80datos2 <- as.data.frame(datos2)
class(datos2)## [1] "data.frame"Nombre Mas Largo
#El nombre mas largo en el grupo de alumnos es "Fernanda"Media aritmetica de Alumnos y Alumnas
mediagen <- table(datos$GENERO)
mediagen##
## F M
## 7 22#En esta seccion, se determina la media de genero, en el grupo de alumnos se encuentran mas Masculinos
#que Femeninos
pie(mediagen)
barplot(mediagen)
Frecuencia de la Edad
freceda <- table(datos$EDAD)
freceda##
## 18 19
## 20 9sort(freceda, decreasing = TRUE)##
## 18 19
## 20 9#En esta seccion se determina la frecuencia de las edades en los alumnos.
stem(freceda)##
## The decimal point is 1 digit(s) to the right of the |
##
## 0 | 9
## 1 |
## 1 |
## 2 | 0Genero Masculino y Femenino
genmasc <- head(datos2, n=22)
genfem <- tail(datos2, n=7)Media Aritmetica de la Edad
#MASCULINO
mediaedadmasc <- mean(genmasc$EDAD)
mediaedadmasc## [1] 18.36364#FEMENINO
mediaedadfem <- mean(genfem$EDAD)
mediaedadfem## [1] 18.14286Media Aritmetica de la Estatura
#MASCULINO
mediaestmasc <- mean(genmasc$ESTATURA)
mediaestmasc## [1] 176.1364#FEMENINO
mediaestfem <- mean(genfem$ESTATURA)
mediaestfem## [1] 161.4286Media Aritmetica del Peso
#MASCULINO
mediapesmasc <- mean(genmasc$PESO)
mediapesmasc## [1] 76.72727#FEMENINO
mediapesfem <- mean(genfem$PESO)
mediapesfem## [1] 62.28571Resumen General
summary(datos)## NO NOMBRE GENERO EDAD
## Min. : 1 Length:29 Length:29 Min. :18.00
## 1st Qu.: 8 Class :character Class :character 1st Qu.:18.00
## Median :15 Mode :character Mode :character Median :18.00
## Mean :15 Mean :18.31
## 3rd Qu.:22 3rd Qu.:19.00
## Max. :29 Max. :19.00
## ESTATURA PESO
## Min. :145.0 Min. :50.00
## 1st Qu.:170.0 1st Qu.:60.00
## Median :176.0 Median :77.00
## Mean :172.6 Mean :73.24
## 3rd Qu.:180.0 3rd Qu.:85.00
## Max. :186.0 Max. :99.00