如何在R环境中根据自定义映射表批量重命名多个dataframe

方案1：直接在全局环境批量重命名（替换原有对象名） #

核心用assign()创建新命名对象，rm()删除旧命名对象即可，直接遍历映射表操作更精准，不需要额外匹配正则，避免命中无关的Output开头对象：

# 遍历映射表的每一行
for(i in seq(nrow(mapping))) {
  # 旧名称
  old_name <- mapping$DatasetName[i]
  # 新名称
  new_name <- mapping$Tab[i]
  # 确保旧对象存在再操作
  if(exists(old_name)) {
    # 把旧对象的值赋值给新名称的对象
    assign(new_name, get(old_name))
    # 删除旧名称的对象（不需要保留旧名的话加这行，要保留就注释掉）
    rm(list = old_name, envir = .GlobalEnv)
  }
}

如果你坚持要用原来的正则匹配逻辑先取对象列表，也可以按下面的写法调整：

output_list <- ls(pattern="^Output")
lapply(output_list, function(x) {
  # 找到当前旧名称对应的新名称
  new_name <- mapping$Tab[mapping$DatasetName == x]
  # 匹配到对应映射关系再操作
  if(length(new_name) == 1) {
    assign(new_name, get(x))
    rm(list = x, envir = .GlobalEnv)
  }
  return(invisible(NULL))
})

方案2：先把所有数据集存入命名列表（更推荐，方便后续批量处理） #

如果后续你还需要对这些数据集做统一的清洗、导出等操作，把它们集中放在一个列表里管理比散在全局环境更方便，重命名逻辑直接作用于列表名即可：

# 把所有映射表中存在的旧对象读入列表
df_list <- mget(mapping$DatasetName, ifnotfound = list(NULL))
# 过滤掉不存在的对象
df_list <- Filter(Negate(is.null), df_list)
# 按映射表重命名列表元素
names(df_list) <- mapping$Tab[match(names(df_list), mapping$DatasetName)]

后续你要调用某一个数据集，直接用df_list$Study、df_list$Score的方式读取即可，也可以用list2env(df_list, envir = .GlobalEnv)一键把列表里所有对象导出到全局环境。

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