ggplot2, facet_wrap输出到多页？

bakerwm

以下例子中facet_wrap()分割成7个小图。

我的目标是：将这7个图按照（2x2)每页的方式输出到PDF文档？

我处理的data比这个数大很多，希望分页显示。

library("ggplot2")<br />
p <-ggplot(mpg,aes(x=displ,y=hwy)) +geom_point()<br />
p +facet_wrap(~ class)

</p>

bakerwm

补充说明一下：

我希望的结果跟这个很像：

xyplot(price ~ carat | clarity, diamonds, layout = c(2, 2))

</p>

daigazi

回复第2楼的 bakerwm：

感觉没有其他办法，除了循环

bakerwm

回复第3楼的 daigazi：

可否帮忙看看 ggplot2 作者关于此问题的答复？我是没看明白：

Not automatically - it's up to you to figure out how to split the

factor levels in pages and then create the appropriate subsets.

Hadley

原帖链接：http://r.789695.n4.nabble.com/multiple-pages-with-ggplot2-facet-wrap-td898561.html

daigazi

回复第4楼的 bakerwm：

Hadley就是说你要自己取子集啦。比如，这样：

<br />
library("ggplot2")<br />
fa=levels(mpg$class)<br />
for(i in 1:ceiling(length(fa)/4)){<br />
  sub_class=fa[c(1:4)+(i-1)*4]<br />
  p <-ggplot(mpg[mpg$class %in% sub_class,],aes(x=displ,y=hwy)) +geom_point()+<br />
    facet_wrap(~ class,nrow=2)<br />
  print(p)<br />
}<br />

</p>

bakerwm

回复第5楼的 daigazi：

非常感谢 daigazi，正是需要的结果。[s:13]

bakerwm

回复第5楼的 daigazi：

非常感谢 daigazi，正是需要的结果。[s:13]