Warum können Rs ifelse-Anweisungen keine Vektoren zurückgeben?

Ich fand Rs ifelse-Aussagen von Zeit zu Zeit ziemlich praktisch. Beispielsweise:

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

Aber das folgende Verhalten verwirrt mich etwas.

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

Ist dies eine Design-Wahl, die über meiner Gehaltsstufe liegt?

Die Dokumentation für ifelseStaaten:

ifelsegibt einen Wert mit der gleichen Form wie testdas mit Elementen , ausgewählt aus entweder gefüllt yesoder noje nachdem , ob das Element testist , TRUEoder FALSE.

Da Sie Testwerte der Länge 1 bestehen, erhalten Sie Ergebnisse der Länge 1. Wenn Sie längere Testvektoren bestehen, erhalten Sie längere Ergebnisse:

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

So ifelsewird für den speziellen Zweck gedacht einen Vektors von booleans Testen und einen Vektor der gleichen Länge zurückkehrt, gefüllt mit Elementen aus der (Vektor) entnommen yesund noArgumenten.

Aufgrund des Funktionsnamens ist es eine häufige Verwirrung, dies zu verwenden, wenn Sie wirklich nur eine normale if () {} else {}Konstruktion wünschen .

Ich wette, Sie möchten eine einfache ifAnweisung anstelle von ifelse- in R ifist dies nicht nur eine Kontrollflussstruktur, sondern kann einen Wert zurückgeben:

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

Beachten Sie, dass Sie das Problem umgehen können, wenn Sie das Ergebnis wie folgt zuweisen 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

Ja, ich denke, ifelse () ist wirklich dafür gedacht, wenn Sie einen großen, langen Testvektor haben und jede einer von zwei Optionen zuordnen möchten. Zum Beispiel mache ich oft Farben für plot () auf folgende Weise:

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

Wenn Sie einen großen langen Testvektor hatten, aber Paare für Ausgaben wollten, könnten Sie vielleicht sapply()oder plyr's llply()oder so etwas verwenden.

Manchmal benötigt der Benutzer nur eine switchAnweisung anstelle einer ifelse. In diesem Fall:

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

(Dies ist eine weitere Syntaxoption von Ken Williams 'Antwort.)

Hier ist ein Ansatz ähnlich dem von Cath vorgeschlagenen, der jedoch mit vorhandenen vorab zugewiesenen Vektoren funktionieren kann

Es basiert auf der Verwendung von get()Ähnlichem wie folgt :

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

benutze `if`, zB

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

In Ihrem Fall wäre die Verwendung von if_elsefrom dplyrhilfreich gewesen: if_elseist strenger als ifelseund wirft einen Fehler für Ihren Fall aus:

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

Gefunden auf everydropr :

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

Kann das Ergebnis Ihrer Bedingung replizieren, um die gewünschte Länge zurückzugeben