R -使用ggplot()每组应用group_by()

Question

我用facet_wrap表示每组图，但是我需要保存每一个情节，并找到下面的链接。

我尝试程序的答案在URL链接，并可以保存PDFfile，但是显示错误信息

代码:

iris %>% group_by(Species) %>% 
  do({
    p <- ggplot(., aes(x =Sepal.Length, y = Petal.Length)) + geom_point()
    ggsave(p, filename = paste0("fig/", unique(.$Species), ".pdf"))
  })

错误信息:

Results are not data frames at positions: 1, 2, 3

网址:对dplyr的group_by

Answer 1

我们可以让do有一个点(或者只是任何数据帧)

iris %>% group_by(Species) %>% 
  do({
    p <- ggplot(., aes(x =Sepal.Length, y = Petal.Length)) + geom_point()
    ggsave(p, filename = paste0("fig", unique(.$Species), ".pdf"))
    invisible(.)
  })