运行if else循环时处理数据框NA值，解决逻辑判断缺失值报错

嘿，我来帮你搞定这个报错问题！

你遇到的Error in if (...) : missing value where TRUE/FALSE needed报错，核心原因是搞错了R里缺失值的判断方式：

• 你用了psd[i,j] == "NA"来判断空白值，但R里真正的缺失值是**NA（不是字符串"NA"）**
• 当psd[i,j]本身是NA时，== "NA"这个比较会返回NA，而if语句必须要明确的TRUE或FALSE，所以直接触发了报错
• 另外，你用两层循环处理这么大的数据框（3418行×500列），效率其实很低，R更适合用向量化操作来处理这类问题

第一步：先统一缺失值格式 #

首先确认你的psd里的空白值是字符串"NA"还是R原生的NA。如果是前者，先把它转换成标准缺失值：

psd[psd == "NA"] <- NA

第二步：用向量化操作替代循环（推荐） #

完全不用写嵌套循环，一行代码就能搞定需求——既保留nmsd原有的NA，又把psd中符合0<=值<=0.3的内容同步过去：

# 只处理psd中不是NA且数值在0到0.3之间的位置，同步到nmsd对应位置
nmsd[!is.na(psd) & psd >= 0 & psd <= 0.3] <- psd[!is.na(psd) & psd >= 0 & psd <= 0.3]

这个方法的优势：

• 自动跳过psd里的NA，不会触发错误
• 完全不会修改nmsd原本的NA值，完美符合你的要求
• 速度比循环快N倍，处理大表格的时候差距特别明显

如果一定要用循环（不推荐） #

要是你坚持想用循环实现，记得用is.na()来判断缺失值，而不是字符串比较：

for(j in 1:500){
  for(i in 1:3418){
    # 先判断是不是缺失值，是的话啥也不做，保持nmsd的NA不变
    if(is.na(psd[i,j])){
      next
    } else if(psd[i,j] >= 0 && psd[i,j] <= 0.3){
      # 符合条件就替换值
      nmsd[i,j] <- psd[i,j]
    }
    # 要是还有其他条件，在这里补充就行
  }
}

这里用next直接跳过缺失值的处理，比赋值nmsd[i,j] <- nmsd[i,j]更简洁。

• R里判断缺失值必须用is.na()，绝对不能用== NA或者== "NA"
• 向量化操作是R的灵魂，能不用循环就不用，效率和可读性都高很多
• 只要if语句的条件返回NA，就会触发你遇到的这个报错，以后遇到类似问题先检查条件里有没有NA值

内容的提问来源于stack exchange，提问作者AYUSH RASTOGI