r - 如何将颜色更改为 textGrob 项目

Question

我正在尝试更改标题的背景颜色。我遵循了这段代码，结果在我的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)

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

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

Answer 1

@user20650 给出的解决方案：

将文本写在黑色矩形上：（title <- grobTree( rectGrob(gp=gpar(fill="black")), textGrob("Testing title background", gp=gpar(fontsize=15, col="white", fontface="bold")))并使用 grid.draw）