Jak mogę dodać tytuł do tabeli?

Question

Mam tabeli i chcę, aby wydrukować tytuł nad nim:

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

Podobny pytano tutaj: Adding text to a grid.table plot

próbowałam coś podobnego i to nie działa:

> 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 

Answer 1

Nie wiesz, na czym polega problem, ale tutaj jest przykład roboczych:

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) 

Answer 2

Inną opcją jest:

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

nadal chcieć zrobić kilka szczypanie z wyściółką.