为什么 Ifelse 无法替换 NA？

Question

我有一个数据集，其中一列包含 yes、no 和 NA 的条目。我想用1 替换任何NA，并用0 替换任何非NA 条目。 Ifelse 将非NA 条目替换为0，但不会将NA 条目替换为1。我需要为此使用is.na() 命令。为什么is.na() 能在ifelse 不能工作的地方工作？

我在下面定义了一个可重现的示例，该示例从定义为因子的列开始，因为这就是我获取数据的方式。

    q <-as.factor(c(NA, "yes",  "no",   "yes", NA))

    ## Does not work
    q <- ifelse(q == "NA", 1, 0)
q    
### Returns: [1] NA  0  0  0 NA

    ## Does not work
    q[q == "NA"] <- 1
q    
### Returns: [1] NA  0  0  0 NA    

    ## This works
    q[is.na(q)] <- 1
q
### Returns: [1] 1 0 0 0 1

存在一些其他条目，但它们似乎没有这个确切的问题。 https://stackoverflow.com/a/8166616/1364839 -- 这个答案表明 is.na() 有效，但不是 ifelse 失败的原因。

Answer 1

您在这里真的不需要ifelse()，尤其是因为如果您不知道某物的价值（这是NA 所表示的！），您如何将它的价值与其他东西进行比较？

> NA == NA ## yes, even NA can't be compared with itself
[1] NA

改为使用is.na() 来识别某事物是否为NA。如果元素是 NA，is.na() 返回 TRUE，否则返回 FALSE。然后我们可以在强制转换为数字时使用FALSE == 0 和TRUE == 1这一事实：

q <-as.factor(c(NA, "yes",  "no",   "yes", NA))
q

as.numeric(is.na(q))

> as.numeric(is.na(q))
[1] 1 0 0 0 1

如果打字太多，那么

> is.na(q) + 0
[1] 1 0 0 0 1

除了+ 为您进行强制转换外，其他方法相同。