R语言if()报错：传入布尔参数仍提示缺少TRUE/FALSE值的问题

咱们一步步拆解你遇到的问题，根源主要有两个：

1. 字符串匹配的拼写错误 #

你明确说数据库里的缺失值标记是"# VALOR N/A"，但函数里写的判断条件却是a[i]== "# VALOR N/D"——注意这里是N/D而非N/A！这个拼写失误不仅会导致目标缺失值匹配失败，更关键的是：如果你的向量a里存在原生NA值（比如读取数据时自动生成的缺失值，不是你标记的字符串），a[i] == "# VALOR N/D"对这些原生NA的比较结果会是NA，而if语句无法接受NA作为判断条件，这就是触发报错的直接原因。

2. 循环中未处理原生NA值 #

哪怕修正了拼写，只要数据里有原生NA，a[i] == "# VALOR N/A"的比较结果还是会出现NA，同样会让if语句报错。

修复后的两种写法 #

方法1：修正循环版函数

先排除原生NA，再匹配目标字符串：

estavencido <- function(a){
  count = 0
  for(i in 2:367){
    # 先判断不是原生NA，再匹配缺失值标记
    if(!is.na(a[i]) && a[i] == "# VALOR N/A"){
      count = count + 1
    }
  }
  return(count)
}

方法2：更高效的向量化写法（推荐）

R的核心优势是向量操作，完全不需要循环，一行代码就能搞定：

estavencido <- function(a){
  # 直接统计指定范围内匹配的数量，同时忽略原生NA
  sum(a[2:367] == "# VALOR N/A", na.rm = TRUE)
}

快速验证方法 #

你可以先单独运行a[2:367] == "# VALOR N/A"，查看结果里是否存在NA：

• 如果有，说明数据里有原生NA，na.rm = TRUE就能解决问题；
• 如果结果全是TRUE/FALSE，那之前的报错100%是拼写错误导致的。

内容的提问来源于stack exchange，提问作者Sebastián Molina