How can I add a title to a tableGrob plot?

Question

I have a table, and I want to print a title above it:

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

A similar question was asked here: Adding text to a grid.table plot

I've tried something similar and it doesn't work:

> 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

score 14 · Answer 1 · edited Mar 08 '17 at 18:57

14

Not sure what the problem was, but here is a working example:

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)

edited Mar 08 '17 at 18:57

David C.

1,974
2
19
29

answered Feb 13 '16 at 20:11

baptiste

75,767
19
198
294

Great! I think you can specify "title" only once. – Fabio Marroni Sep 07 '16 at 14:53
This is a nice solution, but will fail if the title is wider than the table. – mrbrich Oct 06 '17 at 13:52
@mrbrich use `clip = 'off'` in that case – baptiste Oct 06 '17 at 20:19

score 4 · Answer 2 · answered Jan 18 '18 at 11:09

4

Another option is:

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

You still might want to do some tweaking with the padding.

answered Jan 18 '18 at 11:09

Michael Schubert

2,726
4
27
49

I like this solution, but how to best tweak padding? – u17 Sep 01 '18 at 16:19

How can I add a title to a tableGrob plot?

2 Answers2

Linked