为什么 R 的 ifelse 语句不能返回向量？

各州的文档：ifelse

ifelse返回一个具有相同 形状，填充 从元素中选择的元素或取决于元素是否 的 是 或 。testyesnotestTRUEFALSE

由于您传递的是长度为 1 的测试值，因此您将获得长度为 1 的结果。如果通过更长的测试向量，将获得更长的结果：

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

So 用于测试布尔向量并返回相同长度的向量的特定目的，其中填充了从 （vector） 和参数中获取的元素。ifelseyesno

由于函数的名称，当您真的只想使用普通构造时，使用它是一种常见的混淆。if () {} else {}

是的，我认为 ifelse（） 确实是为您有一个大的长测试向量并希望将每个测试映射到两个选项之一而设计的。例如，我经常以这种方式为 plot（） 做颜色：

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

如果你有一个很大的长向量测试，但想要输出对，你可以使用 or ' 或其他东西，也许。sapply()plyrllply()

我敢打赌，你想要一个简单的语句而不是 - 在 R 中，它不仅仅是一个控制流结构，它可以返回一个值：ififelseif

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

有时，用户只需要一个语句，而不是一个 .在这种情况下：switchifelse

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

（这是 Ken Williams 答案的另一个语法选项）

请注意，如果在以下位置分配结果，则可以规避该问题：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

这是一种类似于 Cath 建议的方法，但它可以与现有的预分配向量一起使用

它基于使用类似的东西：get()

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

在您的情况下，使用 from 会有所帮助： 比 更严格，并且会为您的情况抛出错误：if_elsedplyrif_elseifelse

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

使用“if”，例如

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

在每个dropr上找到：

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

可以复制条件的结果以返回所需的长度