Fatal编程技术网
  • r/
  • 使用ggplot（）每个组应用group_by（）

使用ggplot（）每个组应用group_by（）

r

使用ggplot（）每个组应用group_by（）,r,ggplot2,group-by,facet-wrap,R,Ggplot2,Group By,Facet Wrap,我将facet\u wrap用于每个组图， 但是我需要保存每个绘图个体并找到下面的链接 我尝试在URL链接中编程答案，可以保存PDFfile， 但目前的错误按摩 代码： iris%>%按（物种）分组%>% 做({ p我们可以让do有一个观点（或任何数据框架） iris%>%按（物种）分组%>% 做({ pdo希望您返回一个数据。frame可能您需要library（tidyverse）；iris%%>%split（.$Species）%%>%map（~ggplot（，aes（x=Sepal.Len

我将
facet\u wrap
用于每个组图， 但是我需要保存每个绘图个体并找到下面的链接

我尝试在URL链接中编程答案，可以保存PDFfile， 但目前的错误按摩

代码：

iris%>%按（物种）分组%>%
做({

p我们可以让
do
有一个观点（或任何数据框架）


iris%>%按（物种）分组%>%
做({

p
do
希望您返回一个数据。frame可能您需要
library（tidyverse）；iris%%>%split（.$Species）%%>%map（~ggplot（，aes（x=Sepal.Length，y=Petal.Length））+geom_point（））%%>%walk2（name（，~ggsave（.x，filename=paste0（.y，.pdf））


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



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