Ejercicio: Codificación y Transformación

En la base de datos estres.csv se incluye información sobre los niveles de estrés de un grupo de trabajadores, así como otras variables de interés.

5KB

estres.csv

Lo primero, genera un documento quarto:

Después lee el fichero y clasifica las variables en cuantitativas y cualitativas

datos<-read.csv("estres.csv", header = T, sep = "\t")

Realiza las siguientes actividades en R:

1. Examina la estructura de los datos (str) ¿Cómo son los tipos de variables? ¿Cambiarías alguna?

str(datos) 
##Convertimos grupo, genero, contrato y jornada en factores
columns_to_factor<-c("grupo","genero","contrato","jornada")
datos[,columns_to_factor]<-  lapply(datos[,columns_to_factor],as.factor)
str(datos)

1. ¿Qué ID tiene la persona con mejor sueldo? Utiliaza which()

datos$id[which(datos$sueldo==max(datos$sueldo))]

1. ¿Cuántos trabajadores tienen un nivel de estrés mayor de 5? Utiliza length()

length(which(datos$estres>5))

1. ¿Cuántos trabajadores tienen estrés mayor de 5 y además una carga física > 3?

length(which(datos$estres>5 & datos$carfisica>3))

1. Nos hemos equivocado en la introducción de datos y para todos los valores 2 de carga física, queríamos haber puesto un 3. Recodifica esta variable incluyendo este cambio. Utiliza if_else()del paquete dplyr

library(dplyr)
datos$carfisica_corregida<-if_else(datos$carfisica==2,3,datos$carfisica)
table(datos$carfisica,datos$carfisica_corregida)

1. Crea una nueva variable llamada expo_total que se obtenga como suma de los valores de exposición en carga física, carga psíquica y ruido.

datos$expo_total<-datos$carfisica+datos$carpsiquica+datos$ruido
head(datos)

1. Categoriza la variable estres en otra nueva variable que llamaremos estres_grupo que incluya tres categorías: bajo: 1 a 2; medio: 3 a 7; alto; 8 a 10. ¿Cuántas personas hay en cada categoría de la nueva variable. Utiliza cut() y breaks()

datos$estres_grupo<-cut(datos$estres,breaks=c(-Inf,2,7,Inf),
    labels = c("bajo", "medio", "alto"))
datos[,c("estres","estres_grupo")]