如何将lapply应用于skimr:：skim多个数据帧，然后将它们导出到Excel？

Question

我有两个数据帧(更多在现实生活中)。我的目标是应用浏览功能，然后将它们作为excel导出到文件夹中。它们还会有不同的Excel文件名。

df1 <- data.frame(x = rep(3, 5), y = seq(1, 5, 1), ID = letters[1:5])

df2 <- data.frame(x = rep(5, 5), y = seq(2, 6, 1), ID = letters[6:10])

我需要一种简单的方法来完成以下工作：

对于df1：

df1_summary<-skim(df1)

df1_summary<-as.data.frame(df1_summary)

write_xlsx(df1_summary,"df1_summary.xlsx")

对于df2：

df2_summary<-skim(df2)

df2_summary<as.data.frame(df2_summary)

write_xlsx(df2_summary,"df2_summary.xlsx")

到目前为止我知道，df.list<-list(df1, df2)

lapply(df.list, function(x) ...

在现实生活中，我有超过两个数据帧来完成这个任务。任何帮助，以缩短过程将有帮助！

Answer 1

我们可以在将数据集放在list中之后应用该函数。

library(skimr)
lst1 <- lapply(list(df1, df2), function(x) {

    dat <-  as.data.frame(skim(x)) 
    })

names(lst1) <- c('df1_summary', 'df2_summary')
Map(function(x, y) write_xlsx(x, paste0(y, ".xlsx")), lst1, names(lst1))