R语言中for循环内嵌套if语句修改列无效问题求助

问题根源 #

你当前代码的核心问题是：仅修改了循环内部的局部变量shifted，没有将计算结果写回原数据框df1的对应行，所以原数据的shifted列完全没有变化。

修复方案 #

方案1：修正原for循环 #

直接将计算结果赋值回数据框的shifted列，同时可以简化变量提取逻辑：

for(i in 1:nrow(df1)) {  
  # 直接在条件判断中使用数据框索引，无需额外存局部变量
  if(is.na(df1[i, "mk_precip_mm"]) & df1[i, "month"] == 1 & df1[i, "decade"] == 1960) {
    df1[i, "shifted"] <- df1[i, "abby_precip_mm"] + 100
  }     
}

方案2：使用R的向量化操作（推荐） #

R是向量化语言，for循环处理数据框效率较低，更推荐直接用逻辑索引批量赋值：

# 构建逻辑条件
condition <- is.na(df1$mk_precip_mm) & df1$month == 1 & df1$decade == 1960
# 批量赋值
df1$shifted[condition] <- df1$abby_precip_mm[condition] + 100

如果习惯用dplyr包，代码可读性更强：

library(dplyr)
df1 <- df1 %>%
  mutate(shifted = if_else(is.na(mk_precip_mm) & month == 1 & decade == 1960,
                           abby_precip_mm + 100,
                           shifted))

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