如何用for循环在R语言现有数据框中批量新增指示变量？

核心for循环代码 #

直接用字符串拼接变量名，结合数据框的双括号索引来动态添加新变量：

# 遍历27到38的数字范围
for (num in 27:38) {
  # 构造原变量名和目标新变量名
  original_col <- paste0("ada_", num)
  new_col <- paste0("ada_", num, "_p")
  
  # 计算新变量值并添加到数据框
  dat[[new_col]] <- ifelse(dat[[original_col]] == 0 | is.na(dat[[original_col]]), 1, 0)
}

关键说明 #

• 用paste0()动态生成变量名字符串，解决循环中变量名不固定的问题
• 使用**双括号[[ ]]**访问数据框列：这是循环里动态添加/修改列的核心，相比$符号，它支持传入字符串形式的列名，完美适配循环场景
• 逻辑判断和你给出的单条代码完全一致：当原变量为0或NA时赋值1，否则赋值0

可选简化方案（无需循环） #

如果习惯使用tidyverse工具包，用dplyr::across()可以更简洁地完成批量处理，不需要写循环：

library(dplyr)

dat <- dat %>%
  mutate(
    # 匹配所有以"ada_"开头的变量
    across(starts_with("ada_"),
           # 定义转换逻辑
           ~ifelse(.x == 0 | is.na(.x), 1, 0),
           # 指定新变量名的后缀
           .names = "{col}_p")
  )

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