如何遍历名称相似的data.table对象列表并按引用修改列类型？

我来帮你解决这个问题～先分析下你原代码的问题，再给出几种可行的解决方案：

原代码失效的原因 #

你已经通过正则表达式拿到了目标data.table的名称列表，但代码无法生效有两个核心问题：

1. eval(parse(text = DT))返回的是原data.table的副本，修改副本不会影响全局环境里的原对象；
2. 代码里有个笔误：把列名Risknr写成了Risikonr，导致无法定位目标列。

下面是几种正确的实现方式：

方法1：用get()和assign()直接修改原对象 #

这个方法最直观，遍历名称列表，获取原对象后修改列，再重新赋值回全局环境：

# 先获取目标对象名称列表（注意变量名别用list，避免和内置函数重名）
dt_names = grep("^(GenName_).*(F[0-9])$", ls(), perl=TRUE, value=TRUE)

for(name in dt_names) {
  # 获取全局环境中的data.table对象
  dt <- get(name)
  # 用data.table的语法直接修改Risknr列为factor（无需拷贝，高效）
  dt[, Risknr := as.factor(Risknr)]
  # 将修改后的对象重新放回全局环境
  assign(name, dt)
}

验证修改效果：

str(GenName_ksio3k_F1$Risknr)
# 输出会显示Factor类型，比如：Factor w/ 10 levels "1290.365","1522.438",..: 5 10 3 9 7 1 6 4 8 2

方法2：直接遍历环境操作（更高效） #

如果所有目标data.table都在全局环境里，可以用eapply()批量处理，再把结果放回环境：

# 遍历全局环境，修改符合条件的data.table
modified_dts <- eapply(.GlobalEnv, function(x) {
  # 判断是否是data.table且名称符合规则
  if (inherits(x, "data.table") && grepl("^(GenName_).*(F[0-9])$", deparse(substitute(x)))) {
    x[, Risknr := as.factor(Risknr)]
  }
  return(x)
})

# 将修改后的对象覆盖回全局环境
list2env(modified_dts, .GlobalEnv)

更推荐的做法：统一管理到列表中 #

把分散的data.table放到一个列表里管理，后续所有批量操作会更简洁，也不容易出错：

# 把所有目标data.table装进一个列表
dt_collection <- mget(dt_names)

# 批量修改列类型
dt_collection <- lapply(dt_collection, function(dt) {
  dt[, Risknr := as.factor(Risknr)]
})

# 可选：如果需要把修改后的对象放回全局环境
list2env(dt_collection, .GlobalEnv)

这种方式的优势在于，后续不管是合并表、做统一统计，都可以直接对列表操作，不需要再去全局环境里逐个找对象，代码逻辑更清晰。

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