如何将颜色更改为 textGrob 项目答案

【问题标题】：How to change color to a textGrob item如何将颜色更改为 textGrob 项目
【发布时间】：2018-08-02 00:51:00
【问题描述】：

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

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

非常感谢任何帮助。谢谢。

【问题讨论】：

标签： r colors title gridextra grob

【解决方案1】：

@user20650 给出的解决方案：

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

【讨论】：