使用ggplot2从geom_rect中删除边框

Question

我有这个代码：

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=Summary), 
            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)

只是为了让您了解我的数据结构：

> str(bayes)
'data.frame':   252 obs. of  5 variables:
 $ Summary    : chr  "1 vs. 6" "1 vs. 6" "1 vs. 6" "1 vs. 6" ...
 $ Combination: chr  "I1 if I2CP3P4M1M2" "I2 if I1CP3P4M1M2" "C if I1I2P3P4M1M2" "P3 if I1I2CP4M1M2" ...
 $ Order      : int  126 125 124 123 122 121 120 119 118 117 ...
 $ key        : chr  "Lower_XVIII_UBU" "Lower_XVIII_UBU" "Lower_XVIII_UBU" "Lower_XVIII_UBU" ...
 $ value      : num  1 0.35 0.93 0.73 0.95 0.32 0.88 0.13 0.93 0.84 ...

我的问题是我无法从geom_rect对象中删除轮廓和边框，使得数字难以理解。

如你所见，我有5组用五种颜色代表。 然而，在它们内部有很多子矩形，每个子矩阵都有自己的边界。 我想删除图表中的所有边框，那么，代码中的问题在哪里？

Answer 1

来自文档的示例：

df <- data.frame(
    x = rep(c(2, 5, 7, 9, 12), 2),
    y = rep(c(1, 2), each = 5),
    z = factor(rep(1:5, each = 2)),
    w = rep(diff(c(0, 4, 6, 8, 10, 14)), 2)
)

你这样做：

ggplot(df, aes(xmin = x - w / 2, xmax = x + w / 2, ymin = y, ymax = y + 1, fill = z)) +
    geom_rect(aes(color = z), alpha = 0.1)

问题是alpha仅应用于fill ，而不应用于边框（使用color设置）。 解决方案是通过将 color 设置 （不映射）到NA来完全删除边框：

ggplot(df, aes(xmin = x - w / 2, xmax = x + w / 2, ymin = y, ymax = y + 1, fill = z)) +
    geom_rect(color = NA, alpha = 0.3)