读取多个 png 文件以使用 grid.arrange 创建新图

Question

假设我刚刚在 ggplot2 中创建了 4 个直方图。完成后，我意识到我应该使用 grid.arrange 将一些绘图组合到一个图形设备中。 CRAN 中有 png 和 jpeg 包，它们都可用于在绘图上叠加图形。除了再次重新运行可视化之外，R 中是否有包可用于导入多个 png 文件，然后用于排列带有每个文件的图形设备？

这是一些示例代码，尽管可视化效果都相同。

df = data.frame(one=c(1,3,5,6,7,3,4,5,2,5,3,1,2))
df

library(ggplot2)
p1 = qplot(one, data=df, geom="histogram")
p2 = qplot(one, data=df, geom="histogram")
p3 = qplot(one, data=df, geom="histogram")
p4 = qplot(one, data=df, geom="histogram")

png("my_viz1.png")
p1
dev.off()

png("my_viz2.png")
p2
dev.off()

png("my_viz3.png")
p3
dev.off()

png("my_viz4.png")
p4
dev.off()

Answer 1

rl = lapply(sprintf("my_viz%i.png", 1:4), png::readPNG)
gl = lapply(rl, grid::rasterGrob)
gridExtra::grid.arrange(grobs=gl)