如何在ggplot中实现交替填充色横向矩形绘图效果

核心结论 #

在你列出的geom_tile、geom_raster、geom_area、geom_ribbon四个可选几何图层中，最优选择是geom_tile。

若不限制可选图层范围，和base Rrect()参数逻辑完全匹配的geom_rect是最直接的实现方式，但仅从给定选项判断，geom_tile适配度最高、代码最简洁。

各图层适配性对比 #

• geom_raster：是geom_tile的性能特化版本，仅支持所有矩形尺寸完全一致、坐标点严格等距的规则网格场景，灵活性差。用它绘制跨全x轴的横向色带需要额外构造冗余的网格数据，没有使用必要。
• geom_area：用于填充单条折线与固定基线（默认是x轴）之间的连续区域，多用于展示连续数值的累计变化，无法直接生成沿y轴分段的独立矩形色带。
• geom_ribbon：用于填充上下两条边界线之间的区域，多用于绘制置信区间、数值波动范围这类沿x轴动态变化y边界的填充带。虽然理论上可以通过设置固定y边界实现色带效果，但需要为每个色带构造全长度x序列，代码冗余度高，不是最优选择。
• geom_tile：通用矩形瓦片绘制图层，仅需指定每个矩形的中心坐标、宽度、高度、填充色即可生成目标图形，和你提供的base R实现逻辑完全对齐，代码简洁易维护。

复现代码 #

基于geom_tile的实现（给定选项内最优） #

library(ggplot2)

# 构造色带数据
y_seq <- seq(1, 10, 1)
band_df <- data.frame(
  y_center = y_seq,
  x_center = 5, # x轴范围0-10的中点
  width = 10,   # 色带横跨整个x轴范围
  height = 1    # 每个色带高度为1，对应y±0.5的区间
)

# 绘图
ggplot(band_df) +
  geom_tile(
    aes(x = x_center, y = y_center, width = width, height = height),
    fill = ifelse(y_seq %% 2 == 1, "grey90", "lightblue"),
    colour = NA
  ) +
  scale_x_continuous(limits = c(0, 10), expand = c(0, 0)) +
  scale_y_continuous(limits = c(0, 10), expand = c(0, 0)) +
  theme_void() # 匹配原示例无坐标轴的设置

无图层限制时更简洁的geom_rect实现 #

library(ggplot2)
y_seq <- seq(1, 10, 1)

ggplot() +
  geom_rect(
    aes(
      xmin = 0, xmax = 10,
      ymin = y_seq - 0.5, ymax = y_seq + 0.5
    ),
    fill = ifelse(y_seq %% 2 == 1, "grey90", "lightblue"),
    colour = NA
  ) +
  scale_x_continuous(limits = c(0, 10), expand = c(0, 0)) +
  scale_y_continuous(limits = c(0, 10), expand = c(0, 0)) +
  theme_void()

效果参考 #

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