r-为y范围的ggplot添加透明块带

Question

我正在尝试为以下y范围的ggplot添加四个透明带：

• y<2 & y>1.5
• y<1.5 & y>1
• y<1 & y>0.5
• y<0.5 & y>0

我不希望范围重叠，因为这会改变我分配给每个波段的颜色(因为它们是透明的(。

我可以在某种程度上获得使用geom_area后的效果(见下面的代码(，但它们重叠，这会改变颜色。

我想知道是否有更好的方法让乐队专门进入我想要的领域？

df <- data.frame(y1=rep(1.99, 100),
y2=rep(1.49, 100),
y3=rep(0.99, 100),
y4=rep(0.49, 100),
x =1:100)
ggplot(aes(x=x), data = df) + 
geom_area(aes(y=ifelse(y1<2 & y1>1.5, y1, 0)), data=df, fill="yellow", alpha = 0.3) +
geom_area(aes(y=ifelse(y2<1.5 & y2>1, y2, 0)), data=df, fill="darkgoldenrod1", alpha = 0.3) +
geom_area(aes(y=ifelse(y3<1 & y3>0.5, y3, 0)), data=df, fill="darkorange1", alpha = 0.3) +
geom_area(aes(y=ifelse(y4<0.5 & y4>0, y4, 0)), data=df, fill="darkred", alpha = 0.3) +
theme_classic()

此外，还有一个潜在的独立问题，有没有一种方法可以让填充颜色一直到轴，而不仅仅是在它周围留下白色缓冲空间？

Answer 1

在绘制任何点之前使用geom_rect

ggplot() + 
geom_rect(aes(xmin = -Inf, xmax = Inf, ymin = 1.5, ymax = 2), fill="yellow", alpha = 0.3) +
geom_rect(aes(xmin = -Inf, xmax = Inf, ymin = 1, ymax = 1.5), fill="darkgoldenrod1", alpha = 0.3) +
geom_point(data = df, aes(x = x, y = y1)) +
theme_classic()

请参阅geom_rect和alpha-这适用于硬编码值吗？让alpha正确地处理矩形。