如何只在一个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(...)两次或将其包装成一个专用函数。我想听听更好的解决方案...