Rのifelseステートメントがベクトルを返せないのはなぜですか？

時々、Rのifelseステートメントがかなり便利であることがわかりました。例えば：

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

しかし、私は次の動作に多少混乱しています。

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

これは私の給与水準を超えるデザインの選択ですか？

ifelse状態のドキュメント：

ifelse同じ形状の戻り値testのいずれかから選択される元素で満たされているyesか、 noの要素かどうかに応じtestていますTRUEか、FALSE。

長さ1のテスト値を渡すため、長さ1の結果が得られます。長いテストベクトルを渡すと、結果が長くなります。

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

これifelseは、ブール値のベクトルをテストし、（ベクトル）yesとno引数から取得した要素で満たされた同じ長さのベクトルを返すという特定の目的のためのものです。

関数名のせいで、通常のif () {} else {}構成だけが本当に必要なときにこれを使用するのはよくある混乱です。

if代わりに単純なステートメントが必要だと思いますifelse-Rではif、制御フロー構造ではなく、値を返すことができます。

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

内で結果を割り当てると、問題を回避できることに注意してください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

ええ、ifelse（）は、テストの大きな長いベクトルがあり、それぞれを2つのオプションのいずれかにマップしたい場合のために本当に設計されていると思います。たとえば、私はしばしばplot（）の色を次のようにしています：

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

あなたがテストの大きな長いベクトルを持っていたが、出力用のペアを望んでいた場合は、使用できるsapply()かplyrのllply()、おそらく、または何かを。

場合によっては、ユーザーがのswitch代わりにステートメントを必要とすることがありますifelse。その場合：

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

（これはケン・ウィリアムズの答えの別の構文オプションです）

これはCathによって提案されたものと同様のアプローチですが、既存の事前に割り当てられたベクトルで機能します

以下のget()ように使用することに基づいています：

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

たとえば、「if」を使用します

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

あなたの場合、if_elsefrom dplyrを使用することは役に立ちました：if_elseはより厳密でありifelse、あなたのケースに対してエラーをスローします：

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

everydroprで見つかりました：

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

条件の結果を複製して、目的の長さを返すことができます