将包含同名对象的多个 .RData 文件合并为一个 .RData 文件

Question

我有许多 .RData 文件，其中包含我在之前的分析中保存的一个数据框，并且该数据框对于每个加载的文件具有相同的名称。因此，例如使用 load(file1.RData) 我得到一个名为“df”的数据框，然后使用 load(file2.RData) 我得到一个同名的数据框“df”。我想知道是否有可能将所有这些 .RData 文件合并到一个大的 .RData 文件中，因为我需要一次加载它们，每个 df 的名称等于文件名，这样我就可以使用不同的数据帧。

我可以使用下面的代码做到这一点，但它非常复杂，必须有更简单的方法来做到这一点......谢谢你的建议。

假设我有 3 个 .RData 文件，并希望将所有文件保存在一个名为“main.RData”的文件中，并使用它们的特定名称（现在它们都以“df”的形式出现）：

all.files = c("/Users/fra/file1.RData", "/Users/fra/file2.RData", "/Users/fra/file3.RData")
assign(gsub("/Users/fra/", "", all.files[1]), local(get(load(all.files[1]))))
rm(list= ls()[!(ls() %in% (ls(pattern = "file")))])
save.image(file="main.RData")


all.files = all.files = c("/Users/fra/file1.RData", "/Users/fra/file2.RData", "/Users/fra/file3.RData")

for (f in all.files[-1]) {
  assign(gsub("/Users/fra/", "", f), local(get(load(f))))
  rm(list= ls()[!(ls() %in% (ls(pattern = "file")))])
  save.image(file="main.RData")
}

Answer 1

这是一个包含多个现有帖子的选项

all.files = c("file1.RData", "file2.RData", "file3.RData")

将多个数据帧读入一个命名列表 (How can I load an object into a variable name that I specify from an R data file?)

mylist<- lapply(all.files, function(x) {
  load(file = x)
  get(ls()[ls()!= "filename"])
})

names(mylist) <- all.files #Note, the names here don't have to match the filenames

您可以保存列表，或在保存之前将数据帧传输到全局环境中 (Unlist a list of dataframes)

list2env(mylist ,.GlobalEnv)

或者，如果数据框相同并且您想创建一个大数据框，您可以折叠列表并添加一个带有贡献文件名称的变量 (Dataframes in a list; adding a new variable with name of dataframe)。

all <- do.call("rbind", mylist)
all$id <- rep(all.files, sapply(mylist, nrow))

Answer 2

我认为我看到的最佳答案是下面的代码，我从一个我现在无法追踪的 SO 答案中复制了该代码。向原作者致歉。

resave <- function(..., list = character(), file) {
   previous  <- load(file)
   var.names <- c(list, as.character(substitute(list(...)))[-1L])
   for (var in var.names) assign(var, get(var, envir = parent.frame()))
   save(list = unique(c(previous, var.names)), file = file)
}
#I took advantage of the fact the load function 
#returns the name of the loaded variables, so 
#I could use the function's environment instead of creating one.
#And when using get, I was careful to only look in the 
#environment from which the function is called, i.e. parent.frame()