使用gridExtra将两个对象顶部对齐

问题描述

假设您有两个大小不同的tableGrob，并且希望较小的grob在顶部对齐。您将如何进行？

这里是一个例子：

library(gridExtra)

t1 <- cars[1:9,]

t2 <- cars[10:14,]

grid.arrange(tableGrob(t1),tableGrob(t2),ncol = 2)

我们如何向上推较小的桌子？

解决方法

您可以使用来自library（gridExtra）的gtable_combine（）对齐表。请参阅此链接以获取更多说明。 https://mirror.its.dal.ca/cran/web/packages/gridExtra/vignettes/tableGrob.html

library(grid) 
library(gridExtra)
t1 <- cars[1:9,]
t2 <- cars[10:14,]
grid.arrange(gtable_combine(tableGrob(t1),tableGrob(t2),along=1),ncol = 1)