R语言if else循环异常：条件仅部分执行且报错

原始数据 #

Row    Repro Number2
1      1     EWC
2     NA     LWY
3      7     EWS
4     NA     LWC
5     NA     EWC
6     NA     LWC
7      3     EWY
8     NA    LW2Y
9     NA Unknown
10    NA     LWC
11     1     EWC
12    NA     LWY
13    NA     EWY
14    NA     LWY
15    NA Unknown
16    NA     LWC

原始循环代码 #

for (i in 1:nrow(df3)) {
  if(df3$Number2[i+1]=="Unknown" & is.na(df3$Repro[i])) {
    df3$Number2[i]="Unknown"
  } else{
    df3$Number2[i]==df3$Number2[i]
  }
}

报错信息 #

Error in if (df3$Number2[i + 1] == "Unknown" & is.na(df3$Repro[i])) { : 
  missing value where TRUE/FALSE needed

当前代码仅能基于初始的"Unknown"值执行替换逻辑（当后一行Number2为"Unknown"且当前行Repro为NA时，将当前行Number2设为"Unknown"），无法识别循环中新增的"Unknown"值，且第12、13行未被正确替换为"Unknown"。

1. 代码修改方案 #

采用反向遍历的方式，从后往前处理行，这样循环中新增的"Unknown"值会被前一行（原顺序的上一行）检测到，同时规避索引越界问题：

# 从倒数第二行开始，反向遍历到第1行
for (i in (nrow(df3)-1):1) {
  if(df3$Number2[i+1] == "Unknown" & is.na(df3$Repro[i])) {
    df3$Number2[i] = "Unknown"
  }
  # 原else分支的==是无效操作，直接删除
}

反向遍历后，第15行的"Unknown"会先触发第14行的替换，第14行变为"Unknown"后又会触发第13行的替换，直到遇到Repro不为NA的行（第11行）停止，最终得到预期结果。

2. 报错原因及与结果异常的关系 #

• 报错原因：循环中i的范围是1:nrow(df3)，当i等于数据框总行数（16）时，i+1=17超出了数据框的索引范围，df3$Number2[17]返回NA，而if条件要求明确的TRUE/FALSE值，NA无法满足该要求，因此抛出错误。
• 与结果异常的关系：报错会导致循环提前终止，未完成所有行的遍历；同时正向遍历无法识别循环过程中新增的"Unknown"值，这两个因素共同导致结果不符合预期。

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