如何使用R语言for循环简化这段重复赋值代码？

核心思路 #

通过内层循环动态生成列名，替代重复编写13组fa/fb列的处理代码，同时保留外层遍历列表前4个元素的逻辑，让代码更简洁、易维护。

简化后的代码 #

# 外层循环遍历data列表的前4个元素
for (i in 1:4) {
  # 内层循环遍历fa1-fa13与fb1-fb13的列对
  for (col_num in 1:13) {
    # 动态生成当前处理的fa、fb列名
    fa_col <- paste0("fa", col_num)
    fb_col <- paste0("fb", col_num)
    # 将fb列值为0的位置，对应fa列赋值为0
    data[[i]][[fa_col]][data[[i]][[fb_col]] == 0] <- 0
  }
}

简化说明 #

• 避免了重复编写13次几乎完全相同的赋值语句，仅通过内层循环遍历列序号，动态拼接列名
• 若后续需要调整处理的列数（比如改为fa1-fa10），只需修改内层循环的1:13为对应范围即可，无需逐行修改代码
• 逻辑清晰，外层管列表元素，内层管列对，符合代码复用的原则

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