使用Purrr导出列表

Question

我有一个包含子表的列表。我希望能够使用purrr逐个导出列表中项目名称的表--在下面的情况下，我将得到三个文件，每个工厂都指定了今天的日期

library('purrr')
library('tidyverse')

mytest <- iris
mylist <- split(mytest,f = mytest$Species)
names(mylist)

# basically pseudo code for explanation purposes
write_excel_csv(mylist[1], names(mylist[1]))

我现在只是在学习如何有效地使用它，所以对解释的任何帮助以及你为什么这样做都是很好的。

我知道我可以编写一个for循环来迭代列表，但是我想把它作为一种学习体验来开始进入purrr

谢谢您抽时间见我

Answer 1

R基的Map可以很好地工作如下所示：

Map(write.csv, mylist, sprintf("%s-%s.csv", names(mylist), Sys.Date()))
list.files(pattern = "*.csv")
# [1] "setosa-2017-02-13.csv"     "versicolor-2017-02-13.csv" "virginica-2017-02-13.csv"

或者，可以以这种方式使用walk2 (可能还有purrr中的其他几个函数)。