R语言：如何用geom_rect实现连续X轴+离散Y轴的矩形绘图？

需求说明 #

需要在ggplot2中针对Y轴的不同类别（因子）绘制横向矩形，希望矩形的Y轴范围和刻度标签能自动根据数据中的类别生成，而非手动指定y_start/y_end和刻度断点。

优化实现方案 #

核心思路是利用因子的数值编码自动计算每个类别的Y轴区间，同时自动生成对应刻度标签，彻底摆脱手动配置的繁琐：

1. 数据预处理

先将类别列转为因子，再基于因子的数值编码计算每个矩形的Y轴上下限（每个类别占1单位高度，中心对齐因子的数值位置）：

library(ggplot2)

# 示例数据
data <- data.frame(x_start = c(0, 2, 4, 6),
                   x_end = c(1, 3, 5, 7),
                   info = c("x", "x", "y", "y"))

# 将类别列转为因子（可通过levels参数控制类别顺序）
data$info <- factor(data$info, levels = c("x", "y"))

# 自动计算Y轴区间：每个类别占1单位高度，中心对应因子的数值
data$y_min <- as.numeric(data$info) - 0.5
data$y_max <- as.numeric(data$info) + 0.5

2. 自动适配的绘图代码

直接使用预处理后的Y轴区间，刻度会自动根据因子类别生成：

ggplot(data, aes(xmin = x_start, xmax = x_end, ymin = y_min, ymax = y_max, fill = info)) +
  geom_rect(color = "white") + # 可选：添加白色边框区分矩形
  scale_y_continuous(
    breaks = unique(as.numeric(data$info)), # 自动取因子数值作为刻度位置
    labels = levels(data$info) # 自动取因子标签作为刻度文本
  ) +
  labs(y = "类别") # 自定义Y轴标题

方案优势 #

• 当info列新增类别时，无需修改任何绘图参数，代码会自动适配新的Y轴区间和刻度
• 彻底避免手动计算y_start/y_end、刻度断点和标签的重复工作
• 刻度位置自动对齐类别矩形的中心，视觉效果更规整

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