如何在ggplot中绘制跨越绘图外部的矩形？

Question

每当我尝试绘制横跨绘图区域外的矩形（通过geom_rect()）时，ggplot会忽略它。这是可重复的例子：

ggplot(mtcars) +
  geom_rect(aes(xmin=15,ymin=5,xmax=30,ymax=6), fill="red") +
  geom_rect(aes(xmin=15,ymin=6,xmax=40,ymax=7), fill="blue") +
  geom_point(aes(x=mpg,y=cyl)) +
  xlim(10,35)

它生成以下图：

如何在不改变尺寸（xmin，xmax ......）的情况下部分显示图中的蓝色层？