使用grid.arrange，如何减少组合.png文件的边距？

Question

将几十对.png图像合并（并将pfit = np.polyfit(x, y, 3) poly = np.poly1d(pfit) 和knitr作为图形包含在PDF文件中），我发现LaTeX会留下很大的边距在图像下面。图像的默认大小为480 x 480像素。如何减少空白区域？

grid.arrange

请注意此文本与.png图像开头之间的空白区域。
此文本标记.png图像的底部。

这个问题ggplot margin, not grid.arrange并不恰当。

Answer 1

在代码中，将grob的大小设置为视口的30％或60％，因此需要空白。从问题描述中，您可能希望使用英寸或厘米等物理单位，并将设备大小设置为与总大小相匹配。例如，

library(png)
library(grid)
library(gridExtra)
img <- readPNG(system.file("img", "Rlogo.png", package="png"))
g1 <- rasterGrob(img, interpolate=TRUE, width = unit(1,"in"), height=unit(1,"in"))
g2 <- rasterGrob(img, interpolate=TRUE,width = unit(2,"in"), height=unit(2,"in"))
png("fit.png",width=720,height=480,res = 480/2)
grid.arrange(g1, g2, nrow=1,widths=c(1,2))
dev.off()

产生