如何使用 lapply 将列表的元素放入不同的数据框中

Question

我有一个名为 db 的数据帧列表；每个数据框都有它的名字。我使用：

lapply(names(db),
       function(x)write.csv(db[x],
                            file =paste0(x,'.csv')))

提取 d.frames 并将它们保存到 csv 文件中。现在我正在尝试从列表中提取数据帧并使用此命令创建不同的数据帧：

lapply(names(db),
       function(x)as.data.frame(db[x]))

但它不会将任何数据框存储到工作区中，如何将不同名称的每个 df 存储到工作区中？

Answer 1

我们用[[

提取list个元素

lapply(names(db), function(x) write.csv(db[[x]],
        file =paste0(x,'.csv'), row.names=FALSE, quote= FALSE))

因为 db[x] 仍然是 data.frame 的 list 和 length 1.

如果这些是大数据集，data.table 中的 fwrite 函数会更有效率

library(data.table)
lapply(names(db), function(x) fwrite(db[[x]], file = paste0(x, ".csv")))

只是为了说明问题，

set.seed(24)
db <- setNames(lapply(1:3, function(i) as.data.frame(matrix(sample(1:9, 
                             5*4, replace=TRUE), ncol=4))), paste0("df", 1:3))

OP 的方法与 [[ 之间的区别在于 OP 的方法将 write 列名的文件的前缀来自 [=45] 的 names =] 而 [[ 不会有任何这样的问题。

关于第二个问题，即在全局环境中创建多个对象，我们可以直接在'db'

上使用list2env

list2env(db, envir = .GlobalEnv)

但是，不推荐这样做，因为大多数操作都可以在 list 本身内完成。

df1
#  V1 V2 V3 V4
#1  3  9  6  9
#2  3  3  4  2
#3  7  7  7  1
#4  5  8  7  5
#5  6  3  3  2

如何使用 lapply 将列表的元素放入不同的数据框中

How to use lapply to put elements of a list into different data frames

r

list

apply

lapply

dataframe