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

Question

我对每个组图都使用facet_wrap，但我需要保存每个地块个体并找到 link.

我尝试在 URL link 中编写答案并且可以保存 PDF 文件，但显示 ERROR MASSAGE。

代码：

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

URL: applying a function to the output of dplyr's group_by

Answer 1

我们可以让 do 有一点（或者就此而言任何 data.frame）

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(.)
  })

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

use ggplot() every group applyed group_by()

group-by

r

ggplot2

facet-wrap