r - 使用 grid R 包添加边距

Question

我不知道如何使用 grid R 包指定 PDF 打印的边距。

我创建了一个grid.arrange()对象并将其放入 PDF 中，如下所示：

pdf('test.pdf',11.69,8.27)
grid.arrange(textGrob('text1', gp=gpar(cex=4)),
             ncol=1, main=textGrob('title', gp=gpar(cex=1.5)),
             widths = c(1), heights = c(1))
dev.off()

但标题被推到工作表的顶部边缘。我想添加边距。如果我为标题添加 atextGrob而不是main=函数，我可以让它远离顶部，但这对我来说不是一个解决方案，因为我必须放置图表并且它们也靠近边缘。

Answer 1

安排格罗布有一个视口参数，

vp = viewport(height=unit(0.8, "npc"), 
                          width=unit(5, "cm"))

g = arrangeGrob(textGrob('text1', gp=gpar(cex=4)),
              top = textGrob('title', gp=gpar(cex=1.5)),  
              vp=vp)
grid.newpage()
grid.rect(vp=vp)
grid.draw(g)

Answer 2

当我在 pdf (11.69,8.27) 中绘制它时，我改变了这个：

vp = viewport(height=unit(8.17, "inches"), width=unit(11.59, "inches"))
g$vp = vp
grid.newpage()
grid.rect(vp=vp,gp=gpar(col="white"))
grid.draw(g)

像这样，矩形的边缘是不可见的，我有大约 1 毫米的边距。