自定义ggtitle的背景颜色答案

【问题标题】：Customize background color of ggtitle自定义ggtitle的背景颜色
【发布时间】：2017-02-20 17:38:02
【问题描述】：

我希望能够将我的 ggplot 的 ggtitle 的背景更改为 forestgreen，同时保持文本为白色。颜色不应适用于整个图表，而应适用于标题。这是我目前所拥有的：

p <- ggplot(...)
p <- p + ggtitle("Market Updates") + labs(x = "Date", y = "High")
p <- p + theme(plot.title = element.text(hjust = 0.5, size = 20, 
               color = "#FFFFFF"))

我想让它看起来像这样：

【问题讨论】：

最简单的方法可能是制作单面图，然后更改条带的背景。

标签： r ggplot2

【解决方案1】：

从 cmets 更新。

有几种方法可以做到这一点；正如 Axeman 建议的那样，使用 facet_ 在绘图上方创建一个条带（更改条带的格式比更改标题条更容易），或者您可以手动创建一个标题条，然后将其粘贴到绘图上。

例子

library(ggplot2)
library(gridExtra)
library(grid)

# Create dummy variable to facet on: this name will appear in the strip
mtcars$tempvar <- "Market Updates"

# Basic plot
# Manually added legend to match your expected result
p <- ggplot(mtcars, aes(mpg, wt)) + 
        geom_line(aes(colour="Com")) +
        scale_colour_manual(name="", values=c(Com = "#228b22") ) +
        labs(x = "Date", y = "High")

使用facet_：这只会在绘图面板上添加颜色条，尽管标题居中。

p + facet_grid(. ~ tempvar) +
        theme(strip.background = element_rect(fill="#228b22"),
              strip.text = element_text(size=15, colour="white"))

哪个产生

使用grid 函数：这会在绘图面板上添加颜色条，但标题位于图形窗口的中心。（您可以通过将其添加到绘图gtable 来获得更多的定位控制）

my_g <- grobTree(rectGrob(gp=gpar(fill="#228b22")),
                 textGrob("Market Updates", x=0.5, hjust=0.5,
                                            gp=gpar(col="white", cex=1.5)))

grid.arrange(my_g, p, heights=c(1,9))

哪个产生

【讨论】：