¿Por qué las declaraciones ifelse de R no pueden devolver vectores?

He encontrado que las declaraciones ifelse de R son bastante útiles de vez en cuando. Por ejemplo:

ifelse(TRUE,1,2)
# [1] 1
ifelse(FALSE,1,2)
# [1] 2

Pero estoy algo confundido por el siguiente comportamiento.

ifelse(TRUE,c(1,2),c(3,4))
# [1] 1
ifelse(FALSE,c(1,2),c(3,4))
# [1] 3

¿Es esta una opción de diseño que está por encima de mi pago?

La documentación de los ifelseestados:

ifelsedevuelve un valor con la misma forma que el testque se rellena con elementos seleccionados de yeso nodependiendo de si el elemento de testes TRUEo FALSE.

Dado que pasa valores de prueba de longitud 1, obtiene resultados de longitud 1. Si pasa vectores de prueba más largos, obtendrá resultados más largos:

> ifelse(c(TRUE, FALSE), c(1, 2), c(3, 4))
[1] 1 4

Así que ifelseestá destinado al propósito específico de probar un vector de valores booleanos y devolver un vector de la misma longitud, lleno de elementos tomados del (vector) yesy noargumentos.

Es una confusión común, debido al nombre de la función, usar esto cuando realmente desea una if () {} else {}construcción normal .

Apuesto a que desea una ifdeclaración simple en lugar de ifelse: en R, ifno es solo una estructura de flujo de control, puede devolver un valor:

> if(TRUE) c(1,2) else c(3,4)
[1] 1 2
> if(FALSE) c(1,2) else c(3,4)
[1] 3 4

Tenga en cuenta que puede evitar el problema si asigna el resultado dentro de ifelse:

ifelse(TRUE, a <- c(1,2), a <- c(3,4))
a
# [1] 1 2

ifelse(FALSE, a <- c(1,2), a <- c(3,4))
a
# [1] 3 4

sí, creo que ifelse () está realmente diseñado para cuando tienes un gran vector de pruebas y quieres mapear cada una a una de dos opciones. Por ejemplo, a menudo hago colores para plot () de esta manera:

plot(x,y, col = ifelse(x>2,  'red', 'blue'))

Si usted tenía una larga grande del vector de pruebas, pero quería pares de salidas, se puede usar sapply()o plyr's llply()o algo, tal vez.

A veces, el usuario solo necesita una switchdeclaración en lugar de un ifelse. En ese caso:

condition <- TRUE
switch(2-condition, c(1, 2), c(3, 4))
#### [1] 1 2

(que es otra opción de sintaxis de la respuesta de Ken Williams)

Aquí hay un enfoque similar al sugerido por Cath, pero puede funcionar con vectores preasignados existentes

Se basa en el uso de me get()gusta así:

a <- c(1,2)
b <- c(3,4)
get(ifelse(TRUE, "a", "b"))
# [1] 1 2

use `si`, por ejemplo

> `if`(T,1:3,2:4)
[1] 1 2 3

En su caso, usar if_elsefrom dplyrhabría sido útil: if_elsees más estricto que ifelse, y arroja un error para su caso:

library(dplyr)
if_else(TRUE,c(1,2),c(3,4))
#> `true` must be length 1 (length of `condition`), not 2

Encontrado en everydropr :

ifelse(rep(TRUE, length(c(1,2))), c(1,2),c(3,4))
#>[1] 1 2

Puede replicar el resultado de su condición para devolver la longitud deseada.