如何在ggplot2点图上为离散Y轴变量绘制预测区间

首先需要将pi_limits的行名转换为显式的variable列，让它和散点数据的分类匹配，之后可以用两种方式实现离散Y轴旁的区间条绘制：

方式1：水平误差棒（清晰展示区间范围） #

使用geom_errorbarh专门绘制水平方向的区间，适合离散Y轴的场景：

require(ggplot2)
require(reshape2)

# 生成示例数据
dummy_data <- data.frame(x=rnorm(100, 15,2), y=rnorm(100, 17,2), z=rnorm(100,13, 2))
melted_dd <- melt(dummy_data)

# 整理预测区间数据：添加variable列匹配散点分类
pi_limits <- data.frame(start=c(10.2, 14.3, 9.2), end=c(17.2, 20.4, 18.9))
row.names(pi_limits) <- c("x", "y", "z")
pi_limits$variable <- rownames(pi_limits)

# 绘图
ggplot() +
  # 绘制彩色区间条，height控制两端短竖线长度
  geom_errorbarh(data=pi_limits, aes(y=variable, xmin=start, xmax=end), 
                 color="#2ecc71", size=1.2, height=0.2) +
  # 绘制原始数据点
  geom_point(data=melted_dd, aes(x=value, y=variable), alpha=0.6) +
  theme_minimal()

方式2：实心区间条（类似丝带效果） #

如果需要实心的彩色区间，用geom_rect实现，需给离散Y轴设置上下边界（利用离散变量在ggplot中对应数值1、2、3的特性）：

ggplot() +
  # 绘制半透明实心区间条
  geom_rect(data=pi_limits, aes(y=variable, xmin=start, xmax=end,
                                ymin=as.numeric(variable)-0.35,
                                ymax=as.numeric(variable)+0.35),
            fill="#3498db", alpha=0.3) +
  # 绘制原始数据点
  geom_point(data=melted_dd, aes(x=value, y=variable), alpha=0.6) +
  theme_minimal()

关键说明 #

• 核心要求：确保区间数据的variable列和散点数据的分类完全匹配，ggplot才能正确对应每个Y轴位置的区间。
• geom_errorbarh更适合突出区间的起止范围，geom_rect则能实现类似填充丝带的视觉效果，可根据需求选择。

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