将多个 .rda 文件加载到 r 中的列表中

Question

我运行了各种模型（glm、rpart、earth 等）并将模型对象从每个模型对象导出到我计算机上的一个文件夹中。所以我现在有一个文件夹，其中包含大约 60 个不同的模型，这些模型存储为单独的 .rda 文件。

这是通过创建一个模型函数然后通过 purrr 映射包将其应用于模型类型列表来完成的（以避免错误和终止）。

我现在想将它们加载回 r 并进行比较。不幸的是，当我编写初始模型脚本时，每个模型都存储为相同的即“Model.Object”（我不知道否则该怎么做），因此当我尝试将每个模型单独加载到 r 时，它只是相互覆盖。每个文件都保存为 glm.rda、rpart.rda、earth.rda 等，但其中的模型被标记为 Model.Object（为了澄清）。

所以我想我有几个问题；1. 可以将多个 .rda 文件加载到 r 到一个列表中，然后可以将其编入索引 2. 如何更改已应用的模型函数，以便“model.object”名称读取为模型类型（例如glm、rpart 等）

代码：

    Model.Function = function(Model.Type){

  set.seed(0)
  Model.Output = train(x = Pred.Vars.RVC.Data, y = RVC, trControl = Tcontrolparam,
                       preProcess = Preprocessing.Options, tuneLength = 1, metric = "RMSE",
                       method = Model.Type)

    save(Model.Object, file = paste("./RVC Models/",Model.Type,".rda", sep = ""))

  return(Model.Object)

}

Possibly.Model.Function = possibly(Model.Function, otherwise = "something wrong here")

result.possible = map(c("glm","rpart","earth"), Possibly.Model.Function)

Answer 1

现在，您现有文件的救援操作可能如下所示（遵循@nicola 关于使用envir参数 to的评论load()）：

rda2list <- function(file) {
  e <- new.env()
  load(file, envir = e)
  as.list(e)
}

folder <- "./RVC Models"
files <- list.files(folder, pattern = ".rda$")

models <- Map(rda2list, file.path(folder, files))
names(models) <- tools::file_path_sans_ext(files)

展望未来，将模型保存为.Rds文件会saveRDS()比使用save(). 然后在加载文件时重新分配很容易。有关此问题的更多详细信息，请参见例如此问题和答案。