Ejercicio: Gráficos y Tablas

Vamos a trabajar sobre la base de datos estres_corregido.csv que ya hemos corregido previamente. Para leer un csv con la modificación de los factores que ya hicimos hay que añadirle el argumento stringsAsFactors

7KB

estres_corregido.csv

datos<-read.csv("estres_corregido.csv",stringsAsFactors = TRUE)

Vamos a tratar las variables cualitativas (factores en R) y cuantitativas (num o int en R) por separado. Recuerda que en el ejercicio anterior ya las hemos clasificado:

1. Haz un histograma de las variables cuantitativas y saca los estadísticos de las mismas. Comenta los resultados. ¿Representarías algunas de estas variables con un diagrama de barras? Hazlo si la respuesta es Si.

summary(datos)
hist(datos$estres,col=1)
hist(datos$edad,col=2)
hist(datos$peso,col=3)
hist(datos$sueldo,col=4)
hist(datos$carfisica,col=5)
hist(datos$carpsiquica,col=6)
hist(datos$ruido,col=7)

##Variables cuantitavias discretas 
barplot(table(datos$estres),col=1)
barplot(table(datos$carfisica),col=2)
barplot(table(datos$carpsiquica),col=3)
barplot(table(datos$ruido),col=4)

1. Haz un gráfico para las variables cualitativas. Comenta los resultados

barplot(table(datos$grupo),col=rainbow(4))
barplot(table(datos$genero),col=rainbow(2))
barplot(table(datos$contrato),col=rainbow(3))
barplot(table(datos$jornada),col=rainbow(5))
barplot(table(datos$estres_grupo),col=rainbow(6))

1. ¿Están equilibradas las categorías de las variables cualitativas? Ayudate de los gráficos anteriores y haz unas tablas de frecuencias relativas para contestar.

prop.table(table(datos$grupo))
prop.table(table(datos$genero))
prop.table(table(datos$contrato))
prop.table(table(datos$jornada))
prop.table(table(datos$estres_grupo))

1. Representa en un gráfico la variable salario por genero y edad por genero, luego haz los estadísticos describeBy(). ¿Quién gana más dinero? ¿quién es más mayor?

boxplot(datos$sueldo~datos$genero)
boxplot(datos$edad~datos$genero)

library(psych)
describeBy(datos$sueldo,datos$genero)
describeBy(datos$edad,datos$genero)