Supongamos el siguiente data.frame
:
sexo<-(1,1,0,1,0) # 1: hombre; 0:mujer
# asignacion de los valores para ruido, olores, contaminacion (características de la vivienda y su entorno):
# 1: mucho; 2:algo; 3:nada
ruido<-c(1,3,3,1,2) # ruido molesto del exterior
olores<-c(2,2,3,3,1) # malos olores en la vivienda
contaminacion<-c(2,3,1,2,3) # contaminacion en el entorno de la vivienda
acceso_agua<- c(2,3,1,2,2) # la vivienda NO dispone de acceso a agua de calidad
fuma<-c(1,0,1,0,0) # 1:si; 0:no
datos_modelo<-cbind.data.frame(ruido,olores,contaminacion,acceso_agua)
Se desea recodificar las variables ruido
, olores
, contaminacion
y acceso_agua
de tal manera que que los valores 2 y 3 tomen al valor 0, es decir, convertir esas variables en binarias.
Actualmente lo estoy haciendo de la siguiente manera:
attach(datos_modelo)
datos_modelo$ruido[ruido == 2 | ruido == 3] <- 0
datos_modelo$olores[olores == 2 | olores == 3] <- 0
datos_modelo$acceso_agua[acceso_agua == 2 | acceso_agua == 3] <- 0
Sin embargo, este código es un ejemplo reproducible de mi problema, ya que en realidad tengo 14 variables que quiero recodificar de la misma manera en un data.frame
de más de 40 variables. Las variables que deseo recodificar están todas juntas dentro del data.frame, así que es posible llamarlas todas juntas por sus índices, en este ejemplo: datos_modelo[2:4]
¿Cómo puedo hacer la recodificación de manera más eficiente?: Con menos líneas de código y no tan repetitivamente.