如何绘制注释矩形一直用ggplot2绘制边框？

Question

我想强调ggplot2中的一个开放空间，从某个角度向右和向右突出。如果我在主图之外包含一些点，ggplot只会改变我的限制。但是，如果我强制执行限制，它不会绘制一个超出图的矩形。

df <- data.frame(x=runif(10),y=runif(10))
qplot(x,y,data=df) +
    annotate('rect', xmin=.25, ymin=-1, xmax=2, ymax=.25, alpha=.2) +
    ylim(0,1) # try to remove me

我希望突出显示区域一直延伸到-1以下，一直到右边的过去2。