将geom名册扩展到整个图形

Question

我有几个环境数据需要说明，我想到的一种方法是使用根据一个变量值填充的颜色渐变背景，为另一个变量使用geom_line。

我当前的代码是这样：

Depth=c(0,1,2,3,4,5)
Oxygen=c(29,25,24,19,15,14)
Bacteria=c(500,750,1400,1500,1645,1700)
test=data.frame(Depth,Oxygen,Bacteria)

ggplot(test, aes(x=Depth, y=Oxygen, z=Bacteria))+
  geom_raster(aes(fill=Bacteria))+
  geom_line()

结果图为

使用该脚本后：

rects <- data.frame(xstart = seq(0, 5, 1), 
                    xend = seq(1, 6, 1),
                    col = letters[1:6])

ggplot(test, aes(x=Depth, y=Oxygen, z=Bacteria))+
  geom_rect(data=rects, 
            aes(ymin=0, ymax=30, xmin=xstart, xmax=xend, fill=Bacteria), 
                alpha=0.5)+
  geom_line()

我设法将矩形扩展到完整图形，但是每次需要调整rects的值时，都需要进行调整。有几个配置文件可以处理不同数量的值，我想知道是否有更快的方法？