r - 从嵌套模式到 excel 文件的数据框

Question

我正在尝试使用嵌套数据框中的数据(具有在文件名中指定的属性)制作单独的 excel 文件。我怎样才能做到这一点？

library(tidyverse)
nested<- mtcars %>%  group_by(vs, disp) %>% nest()

你怎么看？

Answer 1

我们可以使用iwalk或者imap

library(purrr)
library(openxlsx)
library(stringr)
imap(nested$data, ~ write.xlsx(.x, file = str_c('file', .y, '.xlsx')))

---

或者如果我们想将组的值作为文件名

pmap(nested, ~ write.xlsx(..3, 
          file = sprintf('file_%d_%d.xlsx', ..1, ..2)))