Hoja de Trabajo – Prepara tus variables

Hola.

Dejo el código empleado para la resolución de la hoja de trabajo «Prepara tus Variables». Saludos

#Preparando Variables cualitativas

#Leer archivo espalda.xlsx
library(readxl)
datos <- read_excel(«espalda.xlsx»)

#convertir variable sexo a cualitativa
datos$Sexo <- factor(datos$Sexo, levels = c(«0», «1»),
labels = c(«Hombre», «Mujer»))

#convertir variable LC a cualitativa
datos$LC <- factor(datos$LC, levels = c(«0», «1», «2»),
labels = c(«No Lumbociatica», «Lumbociatica», «Lumbociatica Izquierda»))

#converitr variable PC a cualitativa
datos$PC <- factor(datos$PC, levels = c(«0», «1», «2»),
labels = c(«No Pierna Corta», «Pierna Corta Derecha», «Pierna Corta Izquierda»))

#convertir variable NHD a variable cualitativa
datos$NHD <- factor(datos$NHD, levels = c(«0», «1», «2»),
labels = c(«Ninguna», «Una», «Dos»))

#convertir variable Grupo a variable cualitativa
datos$Tratamiento_Num <- factor(datos$Tratamiento_Num, levels = c(«0», «1»),
labels = c(«Convencional», «Investigacion»))

#Transformando una varible numérica a cualitativa
library(readxl)
datos_espalda <- read_excel(«espalda.xlsx»)

#Transformar la variable ODImes0
varNum <- as.numeric(unlist(datos_espalda[,9]))
ODImes0_grupos <- cut(varNum,breaks = c(0,20,40,60,80,100),labels = c(«Minima»,»Moderada»,»Intensa»,»Discapacidad»,»Maxima»))

datos_espalda <- cbind(datos_espalda,ODImes0_grupos)

#Transformar la variable ODImes1
varNum1 <- as.numeric(unlist(datos_espalda[,10]))
ODImes1_grupos <- cut(varNum1,breaks = c(0,20,40,60,80,100),labels = c(«Minima»,»Moderada»,»Intensa»,»Discapacidad»,»Maxima»))

datos_espalda <- cbind(datos_espalda,ODImes1_grupos)

#Creando nuevas variables

#Estandarizar la variable Peso

Peso_Est1 <- scale(datos$Peso)
mean(Peso_Est1) # media 0
var(Peso_Est1) # dispersion 1

#Normalizar la variable Peso creando variable Peso_Est2
Peso_Est2 <- scale(datos$Peso, scale = TRUE, center = FALSE)
mean(Peso_Est2) # media diferente de 1
var(Peso_Est2) # dispersion mas pequeña

# Calcular nueva variable log_peso
log_peso <- log(datos$Peso) # se aplica transformación logaritmica