添加网格R包的边距

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

但标题被推到了表格的最上方。 我想补充利润。 如果我添加一个textGrob而不是标题的main=函数,我可以将它从顶端保留,但对我来说这不是一个解决方案,因为我必须放置图形,并且它们也接近边缘。


arrangeGrob有一个视角参数,

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)

在这里输入图像描述


当我用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毫米的边距。

链接地址: http://www.djcxy.com/p/22461.html

上一篇: Add margins with grid R package

下一篇: How do you attach a new pull request to an existing issue on github?