如何在ggplot2中使geom_rect在左右两侧逐渐消失？

Question

这是代码：

ggplot() + 
  geom_rect(aes(xmin = 100, xmax = 105), ymin = -Inf, ymax = Inf, fill = "yellow", alpha = 0.5) +
  xlim(80, 120) +
  theme_bw()

我想让矩形的两侧（左侧和右侧）渐变为透明。然而，目前的示例只能实现一侧（右侧或底部等）的效果。

例如： 淡化面板的一侧以指示进行中的时间 如何在ggplot2中对geom_rect对象应用渐变填充？ 所以我想知道如何同时实现两侧的效果？

- Juan_814

Answer 1

这个怎么样？

xmin <- 95
xmax <- 105
xmid <- (xmin + xmax) / 2

n <- 20 # number of steps in gradient, increase to have smoother fading out
alphas <- seq(0,1,1/n)
inc <- (xmid - xmin) / n

xcur <- xmin
df <- NULL
for (alpha in alphas) { # gradient left to right
  df <- rbind(df, data.frame(xmin=xcur, xmax=xcur+inc, alpha=alpha))
  xcur <- xcur + inc
}
for (alpha in rev(alphas)) { # gradient right to left
  df <- rbind(df, data.frame(xmin=xcur, xmax=xcur+inc, alpha=alpha))
  xcur <- xcur + inc
}

ggplot(df) + geom_rect(aes(xmin = xmin, xmax = xmax, alpha = alpha), 
                     ymin = -Inf, ymax = Inf, fill = "red" 
                     ) + xlim(90, 110) + theme_bw()

- Sandipan Dey

---

不错的解决方案，但是阴影包括了上限整数数值，所以在这种情况下，达到106而不是105。使用alphas <- seq(0,1,1/(n-1))来修复这个问题。 - undefined