lapply 和 R 中的保存功能

Question

我在我的工作环境中创建了一个对象列表

data <- c("variable1", "variable2", "variable3")

我想以变量名作为目录将文件保存到不同的目录...所以我这样做是为了给我一个文件名列表以通过 lapply 传递给保存函数..

paste0(data,"/",data,".rda")


lapply(data,FUN=save,file = paste0(data,"/",data,".rda"))

我得到了错误

Error in FUN(X[[i]], ...) : object ‘X[[i]]’ not found

我不确定我在这里做错了什么..

Answer 1

您有对象的列表，或名称的对象列表吗？你说你有前者，但你给的代码是后者的。

另外，如果每个文件只有一个对象，那么最好使用saveRDS 函数（和loadRDS 来加载它）。

lapply(data, function(x) saveRDS(get(x), paste0(x, "/", x, ".rds")))

如果你必须使用save:

lapply(data, function(x) save(list=x, file=paste0(x, "/", x, ".rds")))

Answer 2

这里发生了几件事。

首先，当您不关心每次迭代调用的函数的返回值时，您不需要使用lapply。在这种情况下它什么也没提供。

其次，更重要的是，您正在做的是将对象写入文件，其名称源自其在 R 中的变量名。这是一种反模式。

相反，创建一个对象列表，并使用for 进行工作。我们需要为此使用saveRDS（感谢Hong Ooi），因为l[[n]] 也不是环境中对象的名称。

l <- list(variable1 = variable1, variable2 = variable2, variable3=variable3)
for (n in names(l)) {
    fname = paste0(n, '/', n, '.rda')
    saveRDS(file=fname, l[[n]])
}

最好只保存整个列表，但所有数据将在一个目录中的一个文件中。

至于你的代码到底有什么问题：

• 您将file 的相同值传递给save 的所有调用，但您不打算这样做。这个值是一个向量，但你想要的是每次迭代都从这个向量中获取一个元素。
• lapply 计算传递给函数的值的方式使save 感到困惑。具体来说，它会这样做：

names <- as.character(substitute(list(...)))[-1L]

这会导致类似于以下内容，这不是环境中对象的名称。

c("variable1", "variable2", "variable3")[[1]]