ggplot2：更改面板的背景颜色并独立绘制

Question

我喜欢独立于外框的背景色来更改绘图窗口的背景色。我以为我可以使用panel.background和plot.background来做到这一点。

library(ggplot2)
p <- ggplot(ToothGrowth, aes(x=dose, y=len)) + geom_boxplot()

这看起来不错...

(p2 <- p + theme(panel.background = element_rect(fill = grDevices::rgb(0, 0, 100, 60, maxColorValue = 100))))

这看起来不错...

(p3 <- p + theme(plot.background = element_rect(fill = "red")))

但是组合看起来很奇怪...

p + theme(plot.background = element_rect(fill = "red"),
          panel.background = element_rect(fill = grDevices::rgb(0, 0, 100, 60, maxColorValue = 100)))

有没有一种方法可以将p2和p3组合在一起，以使边框为红色，并且绘图背景为蓝色？