r - 如何使用 purrr 和 dplyr 过滤列表元素并将列表导出到 Excel

Question

我对在 R 中使用列表还很陌生，有一个快速问题也涉及使用 purrr。下面以太小的样本数据框为例。

Client1 <- c("John","Chris","Yutaro","Dean","Andy")
Animals <- c("Cat","Cat","Dog","Rat","Bird")
Living <- c("House","Condo","Condo","Apartment","House")
Data1 <- data.frame(Client1,Animals,Living)

Client1 <- c("John","Chris","Yutaro","Dean","Andy")  
Animals2 <- c("Cat","Dog","Dog","Rat","Cat")
Living2 <- c("House","Apartment","Apartment","Family","Apartment")
Data2 <- data.frame(Client1,Animals2,Living2)

如果您可以包括如何立即重命名列表元素而不是使用下面的两行，则会有好处:

names(Data1)[1:3] <- c("Client","Animals","Living")
names(Data2)[1:3] <- c("Client","Animals","Living")

接下来，如果我想按 Animals 过滤每个数据框，然后使用以下两行代码将每个数据框导出到 Excel 电子表格中:

Data1 %>% filter(Animals=="Cat") %>% write.csv(.,file="Data1.csv")
Data2 %>% filter(Animals=="Cat") %>% write.csv(.,file="Data2.csv")

但是，为了提高效率，我可以将两个数据帧加入一个列表 并使用purrr 同时过滤每个数据帧。

DataList <- list(Data1,Data2)
DataList %>% map(~filter(.,Animals=="Cat"))

对于上面的代码，我将为每只动物使用多个 ~filter 行，所以不确定是否有更有效的方法可以避免在仍然使用 的同时编写许多不同的代码行purrr 和 dplyr？

此外，如何将 write.csv 与 purrr 一起使用。我可以将列表导出到一个电子表格中，但我不确定如何分解列表以使其正确导出。此外，我可以将每个列表元素导出到单独的电子表格中。很高兴看到针对这两种情况的解决方案。

Answer 1

如果我对你的问题的理解正确，你想为两个数据框的每个 Animals 编写一个单独的文件:

DataList <- list(Data1, Data2)

library(purrr)


a <- DataList %>% map(., function(x) { 
        colnames(x) <- c("Client","Animals","Living")
        x
}) %>% map(., function(x) { 
        split(x, x$Animals)
}) %>% flatten(.)

names(a) <- paste0("Data", (1:length(a)))


lapply(1:length(a), function(x) write.csv(a[[x]], 
                                            file = paste0(names(a[x]), ".csv"),
                                            row.names = FALSE))

我们首先将两个数据框转储到DataList中，然后用第一个map重命名两个数据框的列，然后split Animals 的数据框，最后 flatten 嵌套列表。

我希望我能在不破坏链条的情况下做到这一点，但我找不到其他方法。

从这里开始，我们首先重命名列表的元素，然后使用 lapply 循环遍历列表中的所有元素并对每个元素应用 write.csv .

您提到了 Excel - 您可以轻松地将 write.csv 替换为从 R 编写 excel 文件的任何函数