使用for循环结合mutate函数创建数据框新列遇问题求助

核心问题分析 #

1. vars向量定义错误：你当前写法是提取per101到per706列的数值范围，而非获取这些列的名称，直接导致循环逻辑偏离预期。
2. 管道符与for循环混用错误：%>%不能直接衔接for循环，管道符右侧必须是可接收数据框的函数。
3. 循环赋值覆盖问题：每次循环都重新给mod_y2016_ESP赋值，会覆盖之前生成的新列，最终仅保留最后一次循环的结果。

修正后的代码 #

# 生成per101到per706的列名字符向量
vars <- paste0("per", 101:706)

# 初始化目标数据框，避免循环中反复调用原数据
mod_y2016_ESP <- y2016_ESP

# 循环生成新列
for (i_var in vars) {
  # 构造新列名称
  new_col <- paste0("supp_i_", i_var)
  # 动态计算并添加新列
  mod_y2016_ESP <- mod_y2016_ESP %>%
    mutate(!!sym(new_col) := .data[[i_var]] * pervote)
}

关键说明 #

• 列名生成：用paste0("per", 101:706)精准生成per101到per706的列名字符向量，这才是循环需要遍历的正确对象。
• 数据框初始化：提前将原数据框赋值给mod_y2016_ESP，循环中每次在该数据框基础上追加新列，避免数据覆盖。
• 动态列操作：用.data[[i_var]]安全引用循环中的列名，结合!!sym(new_col)实现动态列名赋值，符合tidyeval语法规范。

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