如何在ggplot2中定制plot.background的多色背景：顶部海军蓝其余灰色

你的核心问题是之前的海军蓝矩形绘制在所有图层最上层，覆盖了绘图内容。要实现背景分层（底部灰色+顶部海军蓝）且白色面板叠加在上方，需要调整图层绘制顺序：先绘制自定义背景，再叠加ggplot的内容。

完整实现代码 #

library(ggplot2)
library(grid)

# 1. 构建基础ggplot对象（将plot背景设为透明，避免覆盖自定义背景）
p <- mtcars %>%  
  ggplot(aes(x = wt, y = mpg)) +
  geom_point(color = "red") +
  theme(
    panel.background = element_rect(fill = "white"),
    plot.background = element_rect(fill = NA), # 关键：设为透明
    panel.grid.major = element_line(color = "gray"),
    panel.grid.minor = element_blank(),
    plot.margin = margin(t = 20, r = 10, b = 10, l = 10),
    text = element_text(color = "black") # 可根据背景调整文字颜色，比如海军蓝区域文字设为白色需额外处理
  )

# 2. 创建自定义背景grob：灰色底 + 顶部海军蓝矩形
bg_grob <- grobTree(
  # 灰色背景铺满整个绘图区域
  rectGrob(gp = gpar(fill = "gray", col = NA)),
  # 顶部海军蓝矩形，height控制高度（0.2表示占绘图区域的20%高度），vjust=1让矩形顶部对齐绘图区域顶部
  rectGrob(y = 1, height = 0.2, gp = gpar(fill = "navy", col = NA), vjust = 1)
)

# 3. 分层绘制：先画背景，再叠加ggplot内容
grid.newpage()
grid.draw(bg_grob)
print(p, newpage = FALSE)

关键说明 #

• 将plot.background设为NA（透明），避免ggplot默认背景覆盖我们的自定义背景
• 用grobTree组合灰色背景和海军蓝矩形，确保背景元素都在最底层
• 通过grid.newpage()初始化绘图区域，先绘制背景grob，再用print(p, newpage = FALSE)将ggplot内容叠加在背景之上，这样白色面板会覆盖在背景上方，不会被海军蓝遮挡

内容的提问来源于stack exchange，提问作者obsequious_octahedron