如何加载多份含同名对象的RData文件且不覆盖原有对象？

核心思路 #

不直接将RData文件加载到全局环境，而是先加载到临时环境，给每个对象添加对应文件名的前缀后，再转移到全局环境，从根源避免同名对象覆盖问题。

批量处理代码 #

假设所有RData文件都在当前工作目录，文件名格式为image1.RData、image2.RData，可以用以下代码一次性处理所有文件：

# 获取当前目录下所有RData文件
rdata_files <- list.files(pattern = "\\.RData$")

# 遍历每个文件
for (file in rdata_files) {
  # 提取文件名前缀（比如从"image1.RData"得到"image1"）
  prefix <- sub("\\.RData$", "", file)
  
  # 创建临时环境用于加载文件
  temp_env <- new.env()
  
  # 将文件内容加载到临时环境
  load(file, envir = temp_env)
  
  # 获取临时环境中的所有对象名称
  obj_names <- ls(temp_env)
  
  # 逐个重命名对象并转移到全局环境
  for (obj in obj_names) {
    new_obj_name <- paste0(prefix, "_", obj)
    assign(new_obj_name, get(obj, envir = temp_env), envir = .GlobalEnv)
  }
  
  # 清理临时环境
  rm(temp_env)
}

效果说明 #

运行后全局环境会生成带前缀的对象：

• image1_object1（值为a）、image1_object2（值为b）
• image2_object1（值为c）、image2_object2（值为d）
  所有原始对象值都被保留，不会出现覆盖。

可选优化 #

如果不想把对象都放到全局环境，也可以将它们存入一个列表，方便分组管理：

all_data <- list()
for (file in rdata_files) {
  prefix <- sub("\\.RData$", "", file)
  temp_env <- new.env()
  load(file, envir = temp_env)
  all_data[[prefix]] <- as.list(temp_env)
  rm(temp_env)
}
# 调用示例：all_data[["image1"]]$object1

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