Neden R'nin ifelse ifadeleri vektörleri döndüremiyor?

R'nin ifelse ifadelerinin zaman zaman oldukça kullanışlı olduğunu gördüm. Örneğin:

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

Ama aşağıdaki davranış biraz kafam karıştı.

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

Bu, maaş notumun üzerinde olan bir tasarım seçimi mi?

ifelseEyaletler için belgeler :

ifelseaynı şekle sahip olan bir değer verir test, ya seçilen elemanlardan ile doldurulmuş olan yesya da noelement bağlı olarak testbir TRUEya da FALSE.

1 uzunluğundaki test değerlerini geçtiğiniz için, 1 uzunluğundaki sonuçları alıyorsunuz. Daha uzun test vektörlerini geçerseniz, daha uzun sonuçlar alırsınız:

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

Bu nedenle ifelse, bir boole vektörünü test etmek ve (vektör) yesve noargümanlardan alınan öğelerle dolu aynı uzunlukta bir vektörü döndürmek için özel bir amaç için tasarlanmıştır .

Bunun if () {} else {}yerine gerçekten normal bir yapı istediğinizde bunu kullanmak, işlevin adı nedeniyle yaygın bir karışıklıktır .

Bahse girerim ifbunun yerine basit bir ifade istiyorsunuz ifelse- R'de ifsadece bir kontrol akışı yapısı değildir, bir değer döndürebilir:

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

Sonucu şunun içine atarsanız sorunu aşabileceğinizi unutmayın 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

evet, sanırım ifelse () gerçekten uzun bir test vektörüne sahip olduğunuz ve her birini iki seçenekten birine eşlemek istediğiniz zamanlar için tasarlandı. Örneğin, plot () için genellikle şu şekilde renkler yaparım:

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

Uzun bir test vektörünüz varsa ancak çıktılar için çiftler istiyorsanız, sapply()veya plyr's llply()veya başka bir şey kullanabilirsiniz .

Bazen kullanıcının switchbir ifelse. Bu durumda:

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

(Ken Williams'ın cevabının başka bir sözdizimi seçeneğidir)

İşte Cath tarafından önerilene benzer bir yaklaşım, ancak mevcut önceden atanmış vektörlerle çalışabilir

Bu, get()benzerlerini kullanmaya dayanır :

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

"if" kullanın, örneğin

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

Sizin durumunuzda, if_elsefrom kullanmak dplyryardımcı olabilirdi: if_elsedaha katıdır ifelseve vakanız için bir hata verir:

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

Everydropr'da bulundu :

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

İstenilen uzunluğu döndürmek için durumunuzun sonucunu kopyalayabilir