separate plot of facet_wrap in ggplot2

spfw.R

library(gtable)
d=data.frame(g=c(1,1,1,2,2,3),x=c(1,2,3,1,2,3),y=1:6);
p = ggplot(d,aes(x,y))+geom_bar(stat="identity")+facet_wrap(~g) 
gt= ggplot_gtable(ggplot_build(g))

graphics.off()

for (p in c(4, 7, 10)) {
  pdf(paste0("plot-", p, ".pdf"))
  grid.draw(gt[,c(1:3, p, 12)])
  dev.off()
}

👍