R：将文件列表中的多个图保存到单个文件中（png或pdf或其他格式）

Question

我有超过 10 个文件（最终有数百个......）。我在 R 中生成的 png 格式的文件保存到一个文件夹中。

我的问题：如何将这些文件保存到多图中（例如，一页上的 4 个数字排列成 2 行 2 列）？

我知道这可以通过使用par(mfrow=c(2,2)) 合并到绘图循环中，但我怎么能在生成后仅调用文件夹中的文件来执行此操作？

Answer 1

这里是聚合多个 png 文件的快速方法：

1. 使用readPNG 读取您的png
2. 将它们转换为栅格，并使用grid.raster 绘制它们：非常有效。

类似这样的：

library(png)
library(grid)
pdf('somefile1.pdf')
lapply(ll <- list.files(patt='.*[.]png'),function(x){
  img <- as.raster(readPNG(x))
  grid.newpage()
  grid.raster(img, interpolate = FALSE)

})
dev.off()

编辑：加载 png ，排列它们并将它们合并到同一个 pdf 中：

首先，您应该使用 rasterGrob 将您的 png 文件存储在 grobs 列表中：

plots <- lapply(ll <- list.files(patt='.*[.]png'),function(x){
  img <- as.raster(readPNG(x))
  rasterGrob(img, interpolate = FALSE)
})

然后使用出色的便捷功能marrangeGrob 保存它们：

library(ggplot2)
library(gridExtra)
ggsave("multipage.pdf", marrangeGrob(grobs=plots, nrow=2, ncol=2))