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

问题描述

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")

Output.png

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

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

解决方法

由于绘图会适应设备尺寸，因此获取零件尺寸并不容易。我认为最简单的方法是根据 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=1 表示 rbind)

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

ggsave r r