Question

为什么if-else结构和函数ifelse（）表现不同？

mylist <- list(list(a=1, b=2), list(x=10, y=20))

l1 <- ifelse(sum(sapply(mylist, class) != "list")==0, mylist, list(mylist))

l2 <-
if(sum(sapply(mylist, class) != "list") == 0){  # T: all list elements are lists
  mylist
} else {
  list(mylist)
}

all.equal(l1,l2)
#  [1] "Length mismatch: comparison on first 1 components"

Answer 1

来自ifelse文档：

 ‘ifelse’ returns a value with the same shape as ‘test’ which is
 filled with elements selected from either ‘yes’ or ‘no’ depending
 on whether the element of ‘test’ is ‘TRUE’ or ‘FALSE’.

因此您的输入长度为1，因此输出被截断为长度为1。

您还可以通过一个更简单的示例来看到这一点：

ifelse(TRUE, c(1, 3), 7)
# [1] 1

Answer 2

if ( cond) { yes } else { no }是一种控制结构。它旨在实现编程叉而不是处理序列。我想很多人都来自SPSS或SAS，他们的作者选择“IF”在他们的DATA或TRANSFORM函数中实现条件赋值，因此他们期望R表现相同，而R来自编程传统。 R的隐式for循环内置于许多向量化函数（包括ifelse）。

ifelse采用一个表达式来构建逻辑值向量作为其第一个参数。第二个和第三个参数需要是相等长度的向量，并且要么选择第一个参数，要么选择第二个参数。这与具有隐式按行操作模式的SPSS / SAS IF命令类似。

Answer 3

由于某种原因，这被标记为重复 Why does ifelse() return single-value output?

所以解决这个问题的方法是：

a=3
yo <- ifelse(a==1, 1, list(c(1,2)))
yo[[1]]

if-else vs ifelse with lists

3 个答案: