r - 如何在tableGrob图中添加标题?

r - 如何在tableGrob图中添加标题?,第1张

我有一张桌子,我想打印一个标题:

t1 <- tableGrob(top_10_events_by_casualties, cols=c("EVTYPE", "casualties"), rows=seq(1,10))
grid.draw(t1)

此处提出了类似的问题:Adding text to a grid.table plot

我尝试过类似的东西但它不起作用:

> title <- textGrob("Title",gp=gpar(fontsize=50))
> table <- gtable_add_rows(t1, 
                           heights = grobHeight(title)   padding,
                           pos = 0)
Error: is.gtable(x) is not TRUE

最佳答案:

2 个答案:

答案 0 :(得分:11)

不确定问题是什么,但这是一个有效的例子:

r - 如何在tableGrob图中添加标题?,enter image description here,第2张

library(grid)
library(gridExtra)
library(gtable)

t1 <- tableGrob(head(iris))
title <- textGrob("Title",gp=gpar(fontsize=50))
padding <- unit(5,"mm")

table <- gtable_add_rows(
     t1, 
     heights = grobHeight(title)   padding,
     pos = 0)
table <- gtable_add_grob(
    table, 
    title, 
    1, 1, 1, ncol(table))

grid.newpage()
grid.draw(table)

答案 1 :(得分:1)

另一种选择是:

library(gridExtra)
grid.arrange(top="Iris dataset", tableGrob(head(iris)))

您仍然可能想要使用填充进行一些调整。

r - 如何在tableGrob图中添加标题?,enter image description here,第3张

本文经用户投稿或网站收集转载,如有侵权请联系本站。

发表评论

0条回复