ggplot（）を使用するすべてのグループが適用されましたgroup_by（）

Question

私はすべてのグループプロット にfacet_wrapを使用しますが、すべてのプロットを保存してアンダーリンクを見つける必要があります。

私はURLリンクで答えをプログラムしようとしましたが、PDFファイル を保存できますが、エラーマッサージは表示されます。

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