r - 从 PNG 文件的 grid.arrange 裁剪 ggsave 的顶部和底部输出

Question

library(grid)
library(gridExtra)
library(png)
library(ggplot2)

library(RCurl)

PNG_1 <- readPNG(getURLContent("https://i.ibb.co/MVx1QsQ/A.png"))
PNG_2 <- readPNG(getURLContent("https://i.ibb.co/kHVGNfQ/B.png"))
PNG_3 <- readPNG(getURLContent("https://i.ibb.co/yVf3Hjg/C.png"))

grid <- grid.arrange(rasterGrob(PNG_1), rasterGrob(PNG_2), rasterGrob(PNG_3), ncol=3)

ggsave(grid,filename="output.png")

输出.png

尝试手动设置输出尺寸，但无济于事。

只是希望删除大的顶部和底部边距。谢谢。

Answer 1

随着绘图适应设备尺寸，获得零件尺寸并不容易。我认为最简单的方法是从 PNG 的维度计算纵横比并将设备大小提供给 ggsave。

asp <- (ncol(PNG_1)+ncol(PNG_2)+ncol(PNG_3))/max(nrow(PNG_1),nrow(PNG_2),nrow(PNG_3))
ggsave(grid, filename= ..., width=5, height=5/asp)

要缝合这些 PNG，您可以使用此代码来保持原始像素数。我们不能将cbind/rbind函数用作readPNG返回数组而不是矩阵。幸运的是，该abind包提供了一个功能来做到这一点，abind（ along=2意味着cbind，along=1for rbind）

library(abind)
PNG <- abind(PNG_1,PNG_2,PNG_3,along=2)
writePNG(PNG,"output.png")