Esta es una opción forzando la iteración sobre el vector y
con sapply()
y una función anónima.
sapply(y, function(x) {
if (x > 1 & x <= 15) { "chico"}
else if (x > 15 & x <= 35) {"mediano"}
else {"grande"}
})
Si bien se podría esperar que al ser un vector el input la función operara de manera vectorizada, en este caso es necesario iterar explícitamente con sapply()
. Un for
también funcionaría. El riesgo de usar sapply()
en scripts cuya ejecución no vas a estar supervisando es que es el output cambia de estructura para acomodar los datos. En el caso de ejemplo regresa un vector de la clase character
, pero si algún valor de y
no cumpliera ninguna de las condiciones (en este caso difícilmente ocurra por el else
) entonces regresaría silenciosamente una lista para poder acomodar los NULL
. Así que usar con cuidado!
Si vas por esta ruta podrías usar vapply()
en lugar de sapply()
, para que haga una verificación del tipo de salida y, en caso de el output no sea el esperado regrese un error en lugar de una lista/matriz o lo que sea que a sapply()
se le antoje regresarnos.
vapply(y, function(x) {
if (x > 1 & x <= 15) { "chico"}
else if (x > 15 & x <= 35) {"mediano"}
else {"grande"}
},
FUN.VALUE = character(1))
El argumento FUN.VALUE =
especifica el tipo de output. Si no se cumple da un error. Comparemos los casos siguientes, en los que elimino el else
final, algunos valores de y
son evaluados como NULL
y sapply()
produce una lista:
vapply(y, function(x) {
if (x > 1 & x <= 15) { "chico"}
else if (x > 15 & x <= 35) {"mediano"}
#else {"grande"}
},
FUN.VALUE = character(1))
Error in vapply(y, function(x) { : Los valores deben ser de longitud 1,
pero el resultado FUN(X [[2]]) es la longitud 0
Me regresa un error.
class(
sapply(y, function(x) {
if (x > 1 & x <= 15) { "chico"}
else if (x > 15 & x <= 35) {"mediano"}
#else {"grande"}
})
)
[1] "list"
Me regresa una lista.