如何在ggplot绘制的滴定曲线图中添加带阴影的彩色矩形？

你的代码没达到预期效果主要有几个小问题：图层顺序不对、geom_rect的参数位置错误，还有颜色映射没正确设置。下面给你两种可行的修正方案，都能实现你要的橙色/粉色半透明阴影效果：

方案一：直接设置单个矩形的样式（简单直观） #

这种方式适合只有两个区间的场景，直接给每个geom_rect指定颜色和透明度，同时调整图层顺序让矩形在曲线下方：

Volume <- c(1:5)
pH <- c(3,4,9,10,12)
df <- data.frame(Volume,pH)

ggplot(df,aes(x=Volume,y=pH))+
  # 甲基橙区间：橙色半透明阴影，放在最底层
  geom_rect(xmin=-Inf, xmax=Inf, ymin=3.2, ymax=4.4,
            fill=alpha("orange", 0.3), color=NA)+
  # 酚酞（或其他指示剂）区间：粉色半透明阴影
  geom_rect(xmin=-Inf, xmax=Inf, ymin=8.2, ymax=10,
            fill=alpha("pink", 0.3), color=NA)+
  # 最后画滴定曲线，确保在阴影上方
  geom_line(color="purple")

关键修改点： #

1. 图层顺序：把geom_rect放在geom_line前面，这样阴影矩形会作为背景，不会遮挡曲线。
2. 参数位置：xmin=-Inf和xmax=Inf直接写在geom_rect的参数里（不是aes()内部），因为这是全局的x轴范围，不需要绑定到数据框的列。
3. 样式设置：用fill=alpha("颜色", 透明度)直接指定填充色和阴影效果，color=NA可以去掉矩形的边框（如果需要边框，改成对应颜色即可）。

方案二：用数据映射统一管理（适合多区间场景） #

如果以后需要添加更多指示剂区间，这种方式更易维护：先创建一个包含所有区间信息的数据框，再通过映射批量生成矩形：

Volume <- c(1:5)
pH <- c(3,4,9,10,12)
df <- data.frame(Volume,pH)

# 先定义指示剂的pH区间和对应颜色
indicator_info <- data.frame(
  indicator = c("甲基橙", "酚酞"),
  ymin = c(3.2, 8.2),
  ymax = c(4.4, 10)
)

ggplot(df,aes(x=Volume,y=pH))+
  geom_rect(data=indicator_info, 
            aes(ymin=ymin, ymax=ymax, fill=indicator),
            xmin=-Inf, xmax=Inf, alpha=0.3, color=NA)+
  geom_line(color="purple")+
  # 手动指定每个指示剂对应的颜色
  scale_fill_manual(values = c("甲基橙"="orange", "酚酞"="pink"))+
  # 给图例添加标题
  labs(fill="指示剂")

这种方式的优势： #

• 新增区间时，只需要在indicator_info里添加一行数据，不用重复写geom_rect。
• 自动生成图例，方便查看不同区间对应的指示剂。

原代码的问题复盘： #

1. 图层顺序错误：你把geom_line放在了geom_rect前面，导致矩形会挡住曲线。
2. aes()使用不当：xmin/xmax是固定值，不需要放在aes()里（aes()是用来绑定数据列的）。
3. 颜色映射未生效：你用了scale_fill_manual但没有给geom_rect映射fill变量，所以颜色设置没有被应用。

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