如何在ggplot2绘图区域获得多种背景颜色？

Question

ggplot2图表上的绘图区域（但不是面板区域）可以有多种背景颜色吗？预感告诉我，有可能将其作为轴的某种背景颜色。

这是我目前的图表：

这就是我想要实现的目标：

[最终的颜色肯定会有所不同。我只是以最简单的形式使用这个例子，以便于讨论]

我尝试将“填充”参数传递给：

theme(axis.text.y = element_text(fill = "red"),

但显然失败了，因为该论点适用于element_rect。

Answer 1

你可以在边距中添加grobs - 我不得不弄乱注释范围以使其适合 - 所以期望有一个更健壮的方法。改编自这个问题：How to place grobs with annotation_custom() at precise areas of the plot region?

library(grid)

data(mtcars)
#summary(mtcars)

myGrob <- grobTree(rectGrob(gp=gpar(fill="red", alpha=0.5)),
               gTree(x0=0, x1=1, y0=0, y1=1, default.units="npc"))

myGrob2 <- grobTree(rectGrob(gp=gpar(fill="yellow", alpha=0.5)),
               gTree(x0=0, x1=1, y0=0, y1=1, default.units="npc"))

p <- ggplot(mtcars , aes(wt , mpg)) + 
 geom_line() +
 scale_y_continuous(expand=c(0,0)) + 
 scale_x_continuous(expand=c(0,0)) + 
 theme(plot.margin=unit(c(1, 1, 1,1), "cm")) +
 annotation_custom(myGrob, xmin=-0.5, xmax=1.5, ymin=7.4, ymax=33.9 ) +
 annotation_custom(myGrob2, xmin=1.5, xmax=5.4, ymin=7.4, ymax=10.4 )

g <- ggplotGrob(p)
g$layout$clip[g$layout$name=="panel"] <- "off"
grid.draw(g)