r - 如何用tableGrob显示表格的标题？

Question

考虑这个例子

library(gridExtra)
library(grid)

d1 <- head(iris[,1:3]) %>% as_tibble()
d2 <- head(iris[,2:5]) %>% as_tibble()

grid.arrange(tableGrob(d1),
             tableGrob(d2))

这给出了

这真的很好，但我缺少数据框的标题!如何将它们自动添加到图片中？

谢谢!

Answer 1

您可以使用ggplot，

library(ggplot2)

dd1 <- ggplot() + annotation_custom(tableGrob(d1)) + labs(title = 'd1')
dd2 <- ggplot() + annotation_custom(tableGrob(d2)) + labs(title = 'd2')
grid.arrange(dd1, dd2, nrow = 2)