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)