Nombre: Importar datos de archivo excel a R y realizar análisis
Objetivo: Importar datos de excel y realizar análisis sobre dichos datos
Descripción. Importar datos en excel y realizar análisis para determinar:
Importar Archivo xlsx
library(readxl)
#Importa datos de un archivo xlsx
Misdatos <- read_excel("nombres_edades_generos_sueldos_pasatiempos_edocivil.xlsx",sheet = "Hoja1")
#Mostrar Datos importados
Misdatos
## # A tibble: 18 x 6
## nombre edad genero sueldo pasatiempo edocivil
## <chr> <dbl> <chr> <dbl> <chr> <chr>
## 1 JUAN 17 M 17.5 VIDEOJUEGOS S
## 2 PEDRO 25 M 20.8 MUSICA C
## 3 MARIA 20 F 13.5 VIDEOJUEGOS S
## 4 ROBERTO 28 M 10.8 LECTURA C
## 5 LUCY 32 F 12.4 LECTURA S
## 6 ADRIANA 20 F 0 VIDEOJUEGOS S
## 7 JORGUE 24 M 10.5 MUSICA C
## 8 MARY 45 M 54 LECTURA S
## 9 RUBEN 48 M 25 MUSICA S
## 10 RENE 18 M 10.5 VIDEOJUEGOS C
## 11 OSCAR 24 M 12.5 MUSICA S
## 12 FABRICIO 28 M 10.5 MUSICA C
## 13 ERNESTO 30 M 10.8 MUSICA S
## 14 FERNANDA 28 F 10.6 MUSICA C
## 15 LUISA 35 F 20.6 LECTURA S
## 16 JESSICA 19 F 10.4 VIDEOJUEGOS S
## 17 ROBERT 27 M 20.4 MUSICA S
## 18 YESENIA 32 F 32.5 MUSICA C
¿Cual es el promedio de edades?
#Promedio de edades
mean(Misdatos$edad)
## [1] 27.77778
¿Cual es el promedio de sueldos?
#Promedio del sueldo
mean(Misdatos$sueldo)
## [1] 16.85
¿Quien gana mas dinero, mostrando todos los registros?
#Muestra el registro con el sueldo mas alto
Misdatos[which.max(Misdatos$sueldo),]
## # A tibble: 1 x 6
## nombre edad genero sueldo pasatiempo edocivil
## <chr> <dbl> <chr> <dbl> <chr> <chr>
## 1 MARY 45 M 54 LECTURA S
¿Quien tiene mayor pasatiempo de “videojuegos” las personas de género M o género F?
#personas que juegan videojuegos
JueganVideojuegos<-Misdatos[which(Misdatos$pasatiempo=="VIDEOJUEGOS"),]
#Mostrar persona que juegan videojuegos
JueganVideojuegos
## # A tibble: 5 x 6
## nombre edad genero sueldo pasatiempo edocivil
## <chr> <dbl> <chr> <dbl> <chr> <chr>
## 1 JUAN 17 M 17.5 VIDEOJUEGOS S
## 2 MARIA 20 F 13.5 VIDEOJUEGOS S
## 3 ADRIANA 20 F 0 VIDEOJUEGOS S
## 4 RENE 18 M 10.5 VIDEOJUEGOS C
## 5 JESSICA 19 F 10.4 VIDEOJUEGOS S
#Hombres que juegan video Juegos
H.JueganVideoJuegos<-which(JueganVideojuegos$genero=="M")
H<-length(H.JueganVideoJuegos) #Numero de hombre que juegan videojuegos
H#Mostrar los hombres que juegan video juegos
## [1] 2
#indice de Mujeres que juegan video juegos
M.JueganVideoJuegos<-which(JueganVideojuegos$genero=="F")
M<-length(M.JueganVideoJuegos) #Numero de Mujeres que juegan videojuegos
M
## [1] 3
if (H> M) {
print("A los hombre les gusta mas los videojuegos")
} else {
print("A las Mujeres les gusta mas los videojuegos")
}
## [1] "A las Mujeres les gusta mas los videojuegos"
¿Quien gana mas los de género M o género F?
Misdatos
## # A tibble: 18 x 6
## nombre edad genero sueldo pasatiempo edocivil
## <chr> <dbl> <chr> <dbl> <chr> <chr>
## 1 JUAN 17 M 17.5 VIDEOJUEGOS S
## 2 PEDRO 25 M 20.8 MUSICA C
## 3 MARIA 20 F 13.5 VIDEOJUEGOS S
## 4 ROBERTO 28 M 10.8 LECTURA C
## 5 LUCY 32 F 12.4 LECTURA S
## 6 ADRIANA 20 F 0 VIDEOJUEGOS S
## 7 JORGUE 24 M 10.5 MUSICA C
## 8 MARY 45 M 54 LECTURA S
## 9 RUBEN 48 M 25 MUSICA S
## 10 RENE 18 M 10.5 VIDEOJUEGOS C
## 11 OSCAR 24 M 12.5 MUSICA S
## 12 FABRICIO 28 M 10.5 MUSICA C
## 13 ERNESTO 30 M 10.8 MUSICA S
## 14 FERNANDA 28 F 10.6 MUSICA C
## 15 LUISA 35 F 20.6 LECTURA S
## 16 JESSICA 19 F 10.4 VIDEOJUEGOS S
## 17 ROBERT 27 M 20.4 MUSICA S
## 18 YESENIA 32 F 32.5 MUSICA C
H.ganan<-sum(Misdatos$sueldo[which(Misdatos$genero=="M")])
H.ganan
## [1] 203.3
M.ganan<-sum(Misdatos$sueldo[which(Misdatos$genero=="F")])
M.ganan
## [1] 100
if (H.ganan>M.ganan){
print("Los Hombres ganan mas")
}else{
print("Las mujeres ganan mas")
}
## [1] "Los Hombres ganan mas"
Que nombres de personas y cuántas personas están entre 15 y 25 años de edad
print("Personas que estan entre los 15 y 25 años")
## [1] "Personas que estan entre los 15 y 25 años"
P.entre15y25<- Misdatos[which(Misdatos$edad>=15& Misdatos$edad<=25),]
#Personas entre 15 y 25 años
P.entre15y25
## # A tibble: 8 x 6
## nombre edad genero sueldo pasatiempo edocivil
## <chr> <dbl> <chr> <dbl> <chr> <chr>
## 1 JUAN 17 M 17.5 VIDEOJUEGOS S
## 2 PEDRO 25 M 20.8 MUSICA C
## 3 MARIA 20 F 13.5 VIDEOJUEGOS S
## 4 ADRIANA 20 F 0 VIDEOJUEGOS S
## 5 JORGUE 24 M 10.5 MUSICA C
## 6 RENE 18 M 10.5 VIDEOJUEGOS C
## 7 OSCAR 24 M 12.5 MUSICA S
## 8 JESSICA 19 F 10.4 VIDEOJUEGOS S
print(paste("Personas entre 15 y 25 años:",length(P.entre15y25$nombre)))
## [1] "Personas entre 15 y 25 años: 8"
Cuántas y cuáles nombres son de estado civil C de casado y S de soltero
Casados<-Misdatos[ which(Misdatos$edocivil=="C"),]
#Muestra los casados
Casados
## # A tibble: 7 x 6
## nombre edad genero sueldo pasatiempo edocivil
## <chr> <dbl> <chr> <dbl> <chr> <chr>
## 1 PEDRO 25 M 20.8 MUSICA C
## 2 ROBERTO 28 M 10.8 LECTURA C
## 3 JORGUE 24 M 10.5 MUSICA C
## 4 RENE 18 M 10.5 VIDEOJUEGOS C
## 5 FABRICIO 28 M 10.5 MUSICA C
## 6 FERNANDA 28 F 10.6 MUSICA C
## 7 YESENIA 32 F 32.5 MUSICA C
Solteros<-Misdatos[ which(Misdatos$edocivil=="S"),]
#Muestra solteros
Solteros
## # A tibble: 11 x 6
## nombre edad genero sueldo pasatiempo edocivil
## <chr> <dbl> <chr> <dbl> <chr> <chr>
## 1 JUAN 17 M 17.5 VIDEOJUEGOS S
## 2 MARIA 20 F 13.5 VIDEOJUEGOS S
## 3 LUCY 32 F 12.4 LECTURA S
## 4 ADRIANA 20 F 0 VIDEOJUEGOS S
## 5 MARY 45 M 54 LECTURA S
## 6 RUBEN 48 M 25 MUSICA S
## 7 OSCAR 24 M 12.5 MUSICA S
## 8 ERNESTO 30 M 10.8 MUSICA S
## 9 LUISA 35 F 20.6 LECTURA S
## 10 JESSICA 19 F 10.4 VIDEOJUEGOS S
## 11 ROBERT 27 M 20.4 MUSICA S
print(paste(length(Casados$nombre),"Son Casados,",length(Solteros$nombre),"son solteros" ))
## [1] "7 Son Casados, 11 son solteros"