看起来grid.arrange()忽略了 的name属性tableGrob。假设我想绘制带有标题的表格......
baz<-lapply(seq(3),function(ii)
tableGrob(format(matrix(runif(8),nrow=2,
dimnames=list(LETTERS[1:2],letters[1:4])),digits=3),
name=paste0('n',ii)));
这绘制了它们但没有标题：do.call(grid.arrange,c(baz,nrow=1))
创建 textGrobs 列表、计算它们的高度等似乎有点过头了。我只想强制在每个表的标题上方多出一行，显示我给该表的名称。或者一些内置的参数来这样做。