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

Question

我发现 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

这是一个高于我工资等级的设计选择吗？

Answer 1

ifelse 的文档指出：

ifelse 返回具有相同值的值
形状为 test ，其中填充有
从 yes 或 yes 中选择的元素
否 取决于元素是否
test 的值为 TRUE 或 FALSE。

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

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

因此 ifelse 用于测试向量的特定目的布尔值并返回相同长度的向量，填充从（向量）yes 和 no 参数中获取的元素。

由于函数名称的原因，当您实际上只需要普通的 if () {} else {} 构造时，使用此函数是一种常见的混淆。

Answer 2

我打赌你想要一个简单的 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

Answer 3

请注意，如果您在 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

Answer 4

使用“if”，例如

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

Answer 5

是的，我认为 ifelse() 确实是为当你有一个很大的长测试向量并且想要将每个测试向量映射到两个选项之一时而设计的。例如，我经常以这种方式为plot()设置颜色：

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

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

Answer 6

有时，用户只需要 switch 语句而不是 ifelse。在这种情况下：（

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

这是肯·威廉姆斯答案的另一个语法选项）

Answer 7

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

它基于使用 get() ，如下所示：

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

Answer 8

在您的情况下，使用 dplyr 中的 if_else 会很有帮助：if_else 比 ifelse 更严格，并且会抛出异常您的情况出现错误：

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

Answer 9

发现于 everydropr：

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

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