ggplot2绘图：如何移除geom_rect对象的边框以优化可读性？

看了你的代码和数据结构，问题出在geom_rect的colour=Summary参数上——这个设置会强制给每个矩形添加对应Summary分组的边框，哪怕你设置了alpha=0.1，边框依然会清晰显示，导致大量边框堆积后图表难以辨认。

解决方案 #

要完全移除geom_rect的边框，你有两种直接的修改方式：

方式1：彻底关闭边框绘制

把geom_rect的colour参数固定设为NA，同时移除aes里的colour=Summary映射，这样就不会绘制任何边框：

geom_rect(aes(xmin = Order, xmax = dplyr::lead(Order), ymin= -Inf, ymax =Inf), 
          colour=NA, alpha=0.1)

方式2：保留填充分组但移除边框

如果你原本想用Summary区分矩形的填充颜色，应该把映射放在fill里，同时把colour设为NA关闭边框：

geom_rect(aes(xmin = Order, xmax = dplyr::lead(Order), ymin= -Inf, ymax =Inf, fill=Summary), 
          colour=NA, alpha=0.1)

修改后的完整代码示例（以方式1为例） #

library(ggplot2)
ggplot(data = bayes, aes(x = Order, y = value, fill=key, color=key)) +
  geom_rect(aes(xmin = Order, xmax = dplyr::lead(Order), ymin= -Inf, ymax =Inf),
            colour=NA, alpha=0.1) +
  geom_line(size=0.5) +
  geom_point() +
  xlab("Bayesian combination") +
  ylab("Bayesian probability") +
  theme(legend.position="none") +
  ylim(0,1) +
  xlim(1,126)

为什么原代码会出问题？ #

原代码中你在geom_rect的aes里设置了colour=Summary，这会让ggplot为每个不同的Summary值生成对应的边框线条。而且alpha参数只作用于矩形的填充区域，不会影响边框的透明度，所以大量边框叠加后会显得杂乱。把colour设为NA后，ggplot就会完全跳过边框的绘制，只保留你需要的填充背景。

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