Debo construir una nueva variable usando condicionales, pero tengo tantas condiciones que es una locura controlar lo que escribo y por supuesto, lo que me falla. Aquí un breve ejemplo:
df1<-("ind"=c("H0ES1400NA970173", "H0ES1500SS199781", "H0ES1400NA081997", "M0FR640170910243", "M0FR640798940184"),
"padre"=c("0000000000000000","FR640015930519","0000000000000000","ES1500SS950014","ES1500SS950234"),
"madre"=c("0000000000000000","0000000000000000","TR640015930519","FR640015948625","ES1500SS950854"),
"año" =c("2005","2010","2012","2013","2016")
Por un lado debo agrupar a los ind
que contengan FR
como grupo1
y ES
como grupo2
, lo cual lo he hecho así:
df$n1<-ifelse(grepl("FR",df$ind),paste0("GRUPO1",aa$n1),paste0("GRUPO2",aa$n1))
Ahora, debo crear una nueva variable que cumpla las siguientes condiciones:
df$p1<-ifelse(df$padre=="0000000000000000"&df$madre=="0000000000000000"&df$año<=2005
,paste0(df$n1,"050",df$p1),
ifelse(aa$padre=="0000000000000000"&aa$madre!="0000000000000000"
,paste0(df$n1,"P05",df$p1),
ifelse(df$padre!="0000000000000000"&df$madre!="0000000000000000"
,df$padre,
ifelse(df$padre!="0000000000000000"&df$madre=="0000000000000000"
,df$padre, "NOT")
El tema es que con mi df real tengo que una serie temporal de 20 sobre los que debo poner esa condición de df$año<=X
, con lo cual tendría que repetir estos 4 ifelse 80 veces. No es que no me funcione, pero es una locura controlar tantos paréntesis y demás. He pensado hacer un bucle for que lea todas filas de todas las columnas y luego poner los condicionales dentro, pero no sé como escribir las condiciones dentro del bucle y luego no entiendo tampoco cómo escribir la salida en una matriz o un data.frame. Por otro lado creo que igual se puede hacer algún tipo de función que teste las diferentes condiciones, pero tampoco tengo muy claro cómo escribirla, cómo anidar los condicionales y luego cómo obtener mi df final. Me pueden ayudar, por favor?
df$año<=año
si, según dices debes repetirla varias veces? Por ejemplo,df$año<=2005
ya incluiría por ejemplo adf$año<=2001
.<=1993
también incluye a<=1990
, no me queda claro el sentido de esa condición.