如何只在一个pdf中保存ggforce :: facet_grid_paginate的输出？

Question

我使用 ggforce 包在多个页面上生成多面图：

library(ggforce) 

for(i in 1:6){
  ggplot(diamonds) +
    geom_point(aes(carat, price), alpha = 0.1) +
    facet_wrap_paginate(~cut:clarity, ncol = 2, nrow = 2, page = i)

  ggsave(paste0("~/diamonds_", i, ".pdf"))
}

生成预期的6个PDF文件：

单个pdf 中有6页的输出最简单的方法是什么？

我知道这可以通过reports和pdftools软件包完成，但我想知道是否有更直接的方法来实现这一目标。我希望ggforce能够为输出提供单页功能，但看起来并非如此？

Answer 1

您甚至无需使用ggsave，您可以通过以下方式将所有这些图表放入pdf：

pdf("~/diamonds_all.pdf")
for(i in 1:6){
  print(ggplot(diamonds) +
          geom_point(aes(carat, price), alpha = 0.1) +
          facet_wrap_paginate(~cut:clarity, ncol = 2, nrow = 2, page = i))

}
dev.off()

Answer 2

我面临一个类似的问题，这是我的解决方案，基本上是Mike H.答案的延伸。

通常，您要绘制所有页面，但事先不知道有多少页，而且，您可能希望在标准A4尺寸的纸张上打印。所以：

library(ggforce) 

gg <- ggplot(diamonds) + 
    geom_point(aes(carat, price)) +
    facet_wrap_paginate(~cut:clarity, ncol = 2, nrow = 2, page = 1)
n <- n_pages(gg)

pdf('diamonds.pdf', paper= 'A4', w= 210/25.4, 297/25.4)
for(i in 1:n){
    print(gg + facet_wrap_paginate(~cut:clarity, ncol = 2, nrow = 2, page = i))
}
dev.off()

代码应该是不言自明的。丑陋的是，您必须重复两次facet_wrap_paginate(...)或将其包装到专用函数中。我想听听更好的解决方案...