Как добавить имя столбца в столбце имен строк в tableGrob в R?

Question

Я пытаюсь создать диаграмму из матричного входа в R. Я использую tableGrob для этого.Моя матрица такова, что имена строк имеют ГОД, то есть 2000, 2001, .... Это код, который я использую прямо сейчас.

tt1 <- ttheme_minimal(
core=list(bg_params = list(fill = "#ffffff", alpha = 1),
          fg_params=list(fontface="bold", hjust=0, x=0.05, fontsize=9, just='centre', 
                         col=ifelse(startsWith(matrix_input, "-"), "#FF0000", "#228B22")), 
          padding=unit.c(unit(10, "mm"), unit(2.5, "mm"))
),
colhead=list(fg_params=list(fontface='bold', col='#3c3c3c', hjust=0, x=0.05, fontsize=9)),
rowhead = list(fg_params=list(fontface='bold', col='#3c3c3c', hjust=0, x=0.05, fontsize=9), 
               padding=unit.c(unit(10, "mm"), unit(2.5, "mm")))
                    )
tGrob <- tableGrob(as.matrix(matrix_input), rows = rownames(matrix_input), theme = tt1)
tGrob <- add_border_at_bottom_of_row(1)
grid.arrange(tGrob)

В выводе имя столбца для имен строк (2004, 2005 ....) пусто.Мне нужно назвать это как «Год».Может кто-нибудь помочь мне и подсказать, как это сделать?

Answer 1

Вы можете добавить имена строк в качестве нового столбца в ваших данных,

library(gridExtra)
grid.table(tibble::rownames_to_column(iris[1:4,1:2], 'title'), rows=NULL)

или оставить их в качестве имен строк и вручную добавить заголовок в ячейку gtable.Стилизация может быть проще, если скопировать textGrob из существующей таблицы и просто изменить текст,

library(gridExtra)
library(grid)

tg <- tableGrob(iris[1:4,1:2])
tg <- gtable::gtable_add_grob(tg, textGrob('title', hjust=1,x=1), t=1,l=1, b=1,r=1,z=0)
tg$layout$clip <- 'off'
grid.newpage()
grid.draw(tg)


tg2 <- tableGrob(iris[1:4,1:2])
tg2 <- gtable::gtable_add_grob(tg2, editGrob(tg$grobs[[1]], label='new'), t=1,l=1, b=1,r=1,z=0)
tg2$layout$clip <- 'off'
grid.newpage()
grid.draw(tg2)