Practica9
library(xlsx)
library()
datos<- read.xlsx("nombres_edades_generos_sueldos_pasatiempos_edocivil.xlsx",1) ##se define la variable datos
datos
## nombre edad genero sueldo pasatiempo edocivil
## 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.0 VIDEOJUEGOS S
## 7 JORGUE 24 M 10.5 MUSICA C
## 8 MARY 45 M 54.0 LECTURA S
## 9 RUBEN 48 M 25.0 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
# Promedio de edades
print('') ## dejar un reglon en blanco
## [1] ""
print ('el promedio de edad es:')
## [1] "el promedio de edad es:"
mean(datos$edad)
## [1] 27.77778
Promedio de edades
print('el promedio de los sueldos es:')
## [1] "el promedio de los sueldos es:"
mean(datos$sueldo)
## [1] 16.85
Quien gana mas dinero, mostrando todos las columnas del registro
print('la persona que gana mas dinero es:')
## [1] "la persona que gana mas dinero es:"
print(' ' )
## [1] " "
datos[which.max(datos$sueldo), ]
## nombre edad genero sueldo pasatiempo edocivil
## 8 MARY 45 M 54 LECTURA S
Quien tiene mayor pasatiempo de videojuegos
datos[which(datos$pasatiempo == "VIDEOJUEGOS"),]
## nombre edad genero sueldo pasatiempo edocivil
## 1 JUAN 17 M 17.5 VIDEOJUEGOS S
## 3 MARIA 20 F 13.5 VIDEOJUEGOS S
## 6 ADRIANA 20 F 0.0 VIDEOJUEGOS S
## 10 RENE 18 M 10.5 VIDEOJUEGOS C
## 16 JESSICA 19 F 10.4 VIDEOJUEGOS S
M.videojuegos <- datos[which(datos$pasatiempo == "VIDEOJUEGOS" & datos$genero == 'M'),]
F.videojuegos <- datos[which(datos$pasatiempo == "VIDEOJUEGOS" & datos$genero == 'F'),]
print('las mujeres que tienen como pasatiempo videojuegos son:')
## [1] "las mujeres que tienen como pasatiempo videojuegos son:"
F.videojuegos
## nombre edad genero sueldo pasatiempo edocivil
## 3 MARIA 20 F 13.5 VIDEOJUEGOS S
## 6 ADRIANA 20 F 0.0 VIDEOJUEGOS S
## 16 JESSICA 19 F 10.4 VIDEOJUEGOS S
print('')
## [1] ""
print('los hombres que tienen como pasatiempo videojuegos son:')
## [1] "los hombres que tienen como pasatiempo videojuegos son:"
M.videojuegos
## nombre edad genero sueldo pasatiempo edocivil
## 1 JUAN 17 M 17.5 VIDEOJUEGOS S
## 10 RENE 18 M 10.5 VIDEOJUEGOS C
mostrar la cantidad de hombres y mujeres que juegan videojuegos
print(paste("cantidad de hombres que juegan videojuegos son: ", length(M.videojuegos$nombre)))
## [1] "cantidad de hombres que juegan videojuegos son: 2"
print('')
## [1] ""
print(paste("cantidad de mujeres que juegan videojuegos son: " , length (F.videojuegos$nombre)))
## [1] "cantidad de mujeres que juegan videojuegos son: 3"
los que juegan mas videojuegos son:
if ( length(M.videojuegos) > length(F.videojuegos)) {
print('los hombres son los que juegan mas videojuegos')
} else {
print('las mujeres son las que juegan mas videojuegos' )
}
## [1] "las mujeres son las que juegan mas videojuegos"
quien gana mas los hombres o las mujeres
m <- datos[which(datos$genero == 'M'),]
f <- datos[which(datos$genero == 'F'),]
m
## nombre edad genero sueldo pasatiempo edocivil
## 1 JUAN 17 M 17.5 VIDEOJUEGOS S
## 2 PEDRO 25 M 20.8 MUSICA C
## 4 ROBERTO 28 M 10.8 LECTURA C
## 7 JORGUE 24 M 10.5 MUSICA C
## 8 MARY 45 M 54.0 LECTURA S
## 9 RUBEN 48 M 25.0 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
## 17 ROBERT 27 M 20.4 MUSICA S
if (mean(m$sueldo) > mean(f$sueldo)) {
print (paste("Los hombres ganan mas, con $ ", mean(m$sueldo)))
print (paste("Las mujeres ganan menos, con $ ", mean(f$sueldo)))
} else {
print(paste("Los hombres ganan mas, con $", mean(f$sueldo)))
print (paste("Las mujeres ganan menos, con $ ", mean(m$sueldo)))
}
## [1] "Los hombres ganan mas, con $ 18.4818181818182"
## [1] "Las mujeres ganan menos, con $ 14.2857142857143"
Que nombres de personas y cuantas personas estan entre 15 y 25 a??os de edad
datos[which(datos$edad >= 15 & datos$edad <= 25),]
## nombre edad genero sueldo pasatiempo edocivil
## 1 JUAN 17 M 17.5 VIDEOJUEGOS S
## 2 PEDRO 25 M 20.8 MUSICA C
## 3 MARIA 20 F 13.5 VIDEOJUEGOS S
## 6 ADRIANA 20 F 0.0 VIDEOJUEGOS S
## 7 JORGUE 24 M 10.5 MUSICA C
## 10 RENE 18 M 10.5 VIDEOJUEGOS C
## 11 OSCAR 24 M 12.5 MUSICA S
## 16 JESSICA 19 F 10.4 VIDEOJUEGOS S
#("Personas Casadas C y Solteras S")
casadas <- datos[which(datos$edocivil == 'C'),]
solteras <- datos[which(datos$edocivil == 'S'),]
print('las personas casadas son:')
## [1] "las personas casadas son:"
print('')
## [1] ""
casadas
## nombre edad genero sueldo pasatiempo edocivil
## 2 PEDRO 25 M 20.8 MUSICA C
## 4 ROBERTO 28 M 10.8 LECTURA C
## 7 JORGUE 24 M 10.5 MUSICA C
## 10 RENE 18 M 10.5 VIDEOJUEGOS C
## 12 FABRICIO 28 M 10.5 MUSICA C
## 14 FERNANDA 28 F 10.6 MUSICA C
## 18 YESENIA 32 F 32.5 MUSICA C
print(paste("La cantidad de personas casadas son: ", length(casadas$nombre)))
## [1] "La cantidad de personas casadas son: 7"
print('')
## [1] ""
solteras
## nombre edad genero sueldo pasatiempo edocivil
## 1 JUAN 17 M 17.5 VIDEOJUEGOS S
## 3 MARIA 20 F 13.5 VIDEOJUEGOS S
## 5 LUCY 32 F 12.4 LECTURA S
## 6 ADRIANA 20 F 0.0 VIDEOJUEGOS S
## 8 MARY 45 M 54.0 LECTURA S
## 9 RUBEN 48 M 25.0 MUSICA S
## 11 OSCAR 24 M 12.5 MUSICA S
## 13 ERNESTO 30 M 10.8 MUSICA S
## 15 LUISA 35 F 20.6 LECTURA S
## 16 JESSICA 19 F 10.4 VIDEOJUEGOS S
## 17 ROBERT 27 M 20.4 MUSICA S
print(paste("La cantidad de personas solteras son:", length(solteras$nombre)))
## [1] "La cantidad de personas solteras son: 11"