使用网格R包添加边距

Question

我不知道如何使用网格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()

但标题是在表格的顶部边缘推动.我想补充保证金.如果我为标题添加一个textGrob而不是main=函数,我可以让它远离顶部,但它不是我的解决方案,因为我必须放置图形,它们也接近边缘.

Answer 1

rangeGrob 有一个视口参数，

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)