Estoy intentando extraer ciertos caracteres de un vector llamado "identhog" que se encuentra en la tabla "E". Pero quiero extraer ciertos caracteres dependiendo de la logintud del texto que se encuentra en el vector. Asi si la longitud del vector es 10 deseo extraer ciertos caracteres, y si es 11 deseo extraer otros caracteres en distinta posicion.
if (nchar(E$identhog)==10) {
E <- mutate(E,prueba2= substr(E$identhog, 2, 6))
} else {
E <- mutate(E, prueba2=substr(E$identhog, 3,7))
}
Estoy usando un condicional IF ELSE, pero me aparece el siguiente mensaje:
"Warning message: In if (nchar(E$identhog) == 10) { : the condition has length > 1 and only the first element will be used"
y solo cumple la primera condición de:
E <- mutate(E,prueba2= substr(E$identhog, 2, 6))
Como puedo solucionar este problema? Tengo entendido que IF ELSE funciona con vectores booleanos por lo que debería funcionar mi código, pero no entiendo por qué no es así
También intenté ocupar el siguiente comando:
ifelse((nchar(E$identhog)==10),
E <- mutate(E,prueba2= substr(E$identhog, 2, 6)),
E <- mutate(E, prueba2=substr(E$identhog, 3,7)))
Pero al tener una base de datos muy grande solo se quedó procesando todos los datos y no obtuvé un resultado.