如何在for循环中引用拼接生成的变量？data.table代码问题

嘿，我来帮你理清楚这个问题！你的代码核心问题出在dplyr函数默认的「标准评估」机制上，还有动态列名的处理方式不对。咱们一步步拆解问题，再给出修复方案。

你的代码为什么跑不通？ #

• 列引用错误：你在filter(varname!=1)里直接用了字符串变量varname，但dplyr会把varname当成一个列名来查找，而不是去读取varname里面的字符串（比如a1）。这就导致它找不到名为varname的列，自然出问题。
• 动态列命名错误：在summarise(varname = mean(varname))里，左边的varname会被直接当成新列的名字，而不是替换成a1/a2，所以就算能运行，输出的列名也都是varname，不符合你的预期。
• 用get()获取对象不够优雅：虽然get(paste0('dt',d))能拿到data.table，但这种方式容易出错，尤其是当变量名复杂的时候，不如把所有data.table放进列表管理。

方案1：改进dplyr写法，用动态列引用 #

我们可以用dplyr提供的.data代词（dplyr 1.0.0及以上支持）来引用字符串对应的列，再用!!和:=来动态命名结果列：

library(data.table)
library(dplyr)

dt1 <- data.table(a1 = c(1,2,3), a2 = c(4,5,2))
dt2 <- data.table(a1 = c(1,43,1), a2 = c(52,4,1))

dt_prefix = 'dt'
ind  = c('1', '2')

for (d in ind) {
  df <- get(paste0(dt_prefix, d))
  for (v in ind) {
    varname <- paste0('a', v)
    # 用.data[[varname]]引用动态列，用!!varname := 设置结果列名
    df1 <- df %>%
      filter(.data[[varname]] != 1) %>%
      summarise(!!varname := mean(.data[[varname]], na.rm = TRUE))
    print(df1)
  }
}

运行后就能得到你想要的结果：

• dt1的a1排除1后平均值是2.5，a2的平均值是3.666...
• dt2的a1排除1后平均值是43，a2的平均值是28（你期望里的[54,4]应该是笔误，原数据是52和4哦）

方案2：用data.table原生语法（更高效推荐） #

既然你用的是data.table，不如直接用它的原生语法，处理动态变量更直接，效率也更高，还能避免dplyr的评估问题：

library(data.table)

dt1 <- data.table(a1 = c(1,2,3), a2 = c(4,5,2))
dt2 <- data.table(a1 = c(1,43,1), a2 = c(52,4,1))

# 把所有data.table放进列表，不用再拼字符串找对象
dt_list <- list(dt1 = dt1, dt2 = dt2)
target_vars <- c("a1", "a2")

for (dt_name in names(dt_list)) {
  current_dt <- dt_list[[dt_name]]
  cat("=== 处理", dt_name, "===\n")
  for (var in target_vars) {
    # data.table里用get(var)引用动态列，.()生成结果表
    result <- current_dt[get(var) != 1, .(mean_val = mean(get(var), na.rm = TRUE))]
    # 把结果列名改成原变量名
    setnames(result, "mean_val", var)
    print(result)
  }
}

这个方案的好处是：

• 用列表管理data.table，代码更清晰，不容易出错；
• data.table的原生语法在处理大数据时比dplyr更快；
• 动态列引用和命名的逻辑更直观。

关键知识点总结 #

• dplyr动态列处理：用.data[[var_str]]引用字符串对应的列，用!!var_str :=动态命名列；
• data.table动态列处理：用get(var_str)或者[[var_str]]引用列，用setnames()修改列名；
• 尽量避免用get()获取全局环境中的对象，把相关对象放进列表管理是更优的实践。

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