Question

我对每个小组情节使用facet_wrap，但我需要保存每个情节个人并找到下链接。

我尝试在URL链接中编写答案并保存PDF文件，但是出现了ERROR MASSAGE。

CODE：

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（）

1 个答案: