什么是添加透明叠加层的正确方法？

Question

我想在ggplot上添加半透明的灰色矩形。它们应跨图的整个高度（以y为单位），并由两个x坐标界定。

例如，我发现的当前解决方案是：

示例数据

eg <- as.data.frame(cbind(1:10, runif(10)))

情节

library(ggplot)
ggplot(data=eg, aes(x=V1, y=V2)) +
  geom_point() +
  annotate("rect", xmin = 2.5, xmax = 5.0, ymin = 0, ymax = 1, alpha = .2)

此方法给我带来的两个不便是：

• 手动设置ymax并不方便。我输入的值将对y轴缩放产生影响。理想情况下，我想将其自动设置为绘图的整个高度。
• 我需要通过单独的annotate命令指定每个矩形。理想情况下，我想以更笼统的方式从向量中提取xmin / xmax值。

我也许可以找到解决方法，但也许我遗漏了一些东西。首先，在ggplot中还有更好的方法吗？