Inicio › Foros › Etapa II – Analiza tus Datos › Hoja de Trabajo – Prepara tus variables
- Este debate tiene 1 respuesta, 2 mensajes y ha sido actualizado por última vez el hace 9 meses por
MIGUEL ANGEL GARCIA RODRIGUEZ.
-
AutorEntradas
-
20 noviembre, 2021 a las 0:32 #12509
Gustavo Rivas
ParticipanteHola.
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 logaritmica20 noviembre, 2021 a las 23:55 #12514MIGUEL ANGEL GARCIA RODRIGUEZ
ModeradorHola Gustavo!
está muy bien. Espero que te haya resultado más o menos sencillo, porque ahora lo vas a empezar a aplicar más y más.
Un saludo
-
AutorEntradas
- Debes estar registrado para responder a este debate.