对齐表格

Question

我正在尝试使用grid在绘图中绘制表格。 我有2个表，希望它们的标题对齐：

library(grid)
library(gridExtra)

pdf('test.pdf')
DF1=data.frame(name=1:10,value=1:10)
DF2=data.frame(name=1:4,value=1:4)  

grid.newpage() 
pushViewport(viewport(layout=grid.layout(1, 2, widths=unit(c(3,3), "inches"))))

pushViewport(viewport(layout.pos.col=1, layout.pos.row=1)) 
grid.draw(tableGrob(DF1, gp=gpar(fontsize=6, lwd=.5)))
popViewport(1)

pushViewport(viewport(layout.pos.col=2, layout.pos.row=1, clip="on"))
grid.draw(tableGrob(DF2, gp=gpar(fontsize=6, lwd=.5)))
popViewport()
graphics.off()

这给了我波纹管：

如何确定标头“名称”，“值”在同一行上？

Answer 1

library(gridExtra)

d1=data.frame(name=1:10,value=1:10)
d2=data.frame(name=1:4,value=1:4)  

g1 <- tableGrob(d1)
g2 <- tableGrob(d2)

w1 <- grobWidth(g1)
w2 <- grobWidth(g2)

h1 <- grobHeight(g1)
h2 <- grobHeight(g2)

grid.newpage()
grid.draw(grobTree(g1, vp=viewport(x=unit(0.5, "npc") - 0.5*w1 - unit(1,"line"),
                                   y=unit(1,"npc") - h1*0.5)))
grid.draw(grobTree(g2, vp=viewport(x=unit(0.5, "npc") + 0.5*w2 + unit(1,"line"),
                   y=unit(1,"npc") - h2*0.5)))