我有一张桌子,我想打印一个标题:
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
答案 0 :(得分:11)
不确定问题是什么,但这是一个有效的例子:
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)