R:ifelse将数字(0)转换为NA

Question

有人能向我解释为什么会发生以下情况吗？

ifelse(TRUE, numeric(0), 1)
> [1] NA

我当然希望是数字(0(。我怀疑这是因为ifelse被矢量化了，例如下面的工作，但我不清楚到底发生了什么

if (TRUE) numeric(0) else 1
#> numeric(0)

Answer 1

您可以访问ifelse的实现，即

function (test, yes, no) 
{
if (is.atomic(test)) {
if (typeof(test) != "logical") 
storage.mode(test) <- "logical"
if (length(test) == 1 && is.null(attributes(test))) {
#... let's skip this part..
}
}
else test <- if (isS4(test)) 
methods::as(test, "logical")
else as.logical(test)
ans <- test
len <- length(ans)
ypos <- which(test)
npos <- which(!test)
if (length(ypos) > 0L) 
ans[ypos] <- rep(yes, length.out = len)[ypos]
if (length(npos) > 0L) 
ans[npos] <- rep(no, length.out = len)[npos]
ans
}
<bytecode: 0x00000123e6b7d3a0>
<environment: namespace:base>

所以，是的，这是因为ifelse被矢量化了——特别是沿着条件——并且返回对象ans被初始化为与条件长度相同的向量。

ifelse状态的描述

ifelse返回一个与填充的测试形状相同的值根据是否测试元素为TRUE或FALSE。

设test <- TRUE。有趣的线路是

ypos <- which(test)
rep(numeric(0), length.out = 1)[ypos]

Answer 2

如果您想调整函数，使其在您的情况下返回numeric(0)，您可以在函数内将if(length(yes) == 1)更改为if (length(yes) == 0 | length(yes) == 1)。这给了你：

ifelse2 <- function (test, yes, no) {
if (is.atomic(test)) {
if (typeof(test) != "logical") 
storage.mode(test) <- "logical"
if (length(test) == 1 && is.null(attributes(test))) {
if (is.na(test)) 
return(NA)
else if (test) {
if (length(yes) == 0 | length(yes) == 1) { # Here is what I changed
yat <- attributes(yes)
if (is.null(yat) || (is.function(yes) && identical(names(yat), 
"srcref"))) 
return(yes)
}
}
else if (length(no) == 1) {
nat <- attributes(no)
if (is.null(nat) || (is.function(no) && identical(names(nat), 
"srcref"))) 
return(no)
}
}
}
else test <- if (isS4(test)) 
methods::as(test, "logical")
else as.logical(test)
ans <- test
len <- length(ans)
ypos <- which(test)
npos <- which(!test)
if (length(ypos) > 0L) 
ans[ypos] <- rep(yes, length.out = len)[ypos]
if (length(npos) > 0L) 
ans[npos] <- rep(no, length.out = len)[npos]
ans
}

尝试一下：

ifelse2(TRUE, numeric(0), 1)
> [1] numeric(0)

如果no参数在您的情况下也可以是numeric(0)，那么您也可以对它执行同样的操作。