为循环创建的对象分配唯一名称 解决.rda加载对象名重复问题

你遇到的问题很常见——因为你每次循环里都把子集数据赋值给同一个DT.grid对象，然后保存这个对象，所以每个.rda文件里存储的对象名称都是DT.grid，加载时自然都会覆盖或使用这个名字。要让每个文件加载后有唯一的对象名，我们需要在保存前为每个子集创建唯一命名的对象，再保存这个对象。

方法一：使用assign()创建唯一对象并保存 #

这是最直接的方式，步骤清晰且易于理解：

1. 为每个location.id生成唯一的对象名称（比如DT_grid_00、DT_grid_11）
2. 用assign()将对应子集数据赋值给这个对象
3. 保存这个唯一命名的对象
4. （可选）保存后删除环境中的临时对象，避免环境杂乱

修改后的完整代码：

# 你的原始数据构造
dat <- data.frame(location.id = rep(c(00,11,22,33,44,55,66,77,88,99), each = 10), x = runif(10*10))
location.id <- c(00,11,22,33,44,55,66,77,88,99)

# 修改后的循环
for(m in unique(location.id)){
  # 生成唯一对象名
  obj_name <- paste0("DT_grid_", m)
  # 给对象赋值对应子集
  assign(obj_name, dat[dat$location.id == m, ])
  # 保存这个唯一对象
  save(list = obj_name, file = paste0("temp_", m, ".rda"))
  # 可选：删除临时对象，清理环境
  rm(list = obj_name)
}

验证效果 #

当你加载其中一个文件时：

load("temp_00.rda")
# 查看环境中的对象，会看到DT_grid_00，而不是DT.grid
ls()

为什么原来的代码不行？ #

在你的原始循环中，每次迭代都将子集数据覆盖到DT.grid，然后保存这个对象。save()函数会同时存储对象的名称和对应的数据，所以每个.rda文件里的对象名都是DT.grid——加载时R会按照这个名称恢复对象，自然所有文件加载后都是同一个名字。

额外小技巧（无需临时对象） #

如果你不想在环境中创建临时对象，也可以直接构造一个命名列表，保存列表中的单个元素：

for(m in unique(location.id)){
  # 构造命名列表，指定要保存的对象名
  temp_list <- stats::setNames(list(dat[dat$location.id == m, ]), paste0("DT_grid_", m))
  # 保存列表（加载后可提取对应对象）
  save(temp_list, file = paste0("temp_", m, ".rda"))
}

不过这种方式加载后需要额外一步提取对象：

load("temp_00.rda")
DT_grid_00 <- temp_list[[1]]
rm(temp_list) # 清理临时列表

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