小编KRS*_*tam的帖子

有没有办法增加tableGrob项目中列名的单元格？

library(grid)
d <- head(iris, 3)
g <- tableGrob(d)
grid.newpage()
grid.draw(g)

默认：

我想要实现的目标（这是在 photoshop 中完成的）：

任何帮助深表感谢。

我正在尝试更改标题的背景颜色。我遵循了这段代码，结果在我的tableGrob. 但是，填充选项未启用。R (v3.2.5) 中没有发布警告或错误。

d <- head(iris[,1:2])
table <- tableGrob(d, rows=NULL)

library(grid)
library(gtable)

title <- grid.text("Testing title background",gp=gpar(fontsize=15, col="white", fontface="bold", fill="black"))

table <- gtable_add_rows(table, 
                         heights = grobHeight(title) + unit(1,"line"),
                         pos = 0)
table <- gtable_add_grob(table, title,
                         t=1, l=1, 
                         r=ncol(table))

plot(table)

我需要白色粗体字母和黑色背景的标题。

任何帮助深表感谢。谢谢。