ggplot2 - Затенение области над линией

У меня есть некоторые данные, которые ограничены линией 1: 1. Я хотел бы продемонстрировать это на графике, слегка заштриховав область НАД линией, чтобы привлечь внимание зрителя к области под линией.

Я использую qplot для создания графиков. Быстро у меня есть;

qplot (x, y) + geom_abline (slope = 1)

, но, хоть убей, не могу понять, как легко затенять указанную выше область, не создавая отдельный объект. Есть ли простое решение для этого?

РЕДАКТИРОВАТЬ

Хорошо, Джоран, вот пример набора данных:

 df=data.frame(x=runif(6,-2,2),y=runif(6,-2,2),
   var1=rep(c("A","B"),3),var2=rep(c("C","D"),3))
 df_poly=data.frame(x=c(-Inf, Inf, -Inf),y=c(-Inf, Inf, Inf))

и вот код, который я использую для его построения (я последовал твоему совету и был поиск ggplot () ):

ggplot(df,aes(x,y,color=var1))+
 facet_wrap(~var2)+
 geom_abline(slope=1,intercept=0,lwd=0.5)+
 geom_point(size=3)+
 scale_color_manual(values=c("red","blue"))+
 geom_polygon(data=df_poly,aes(x,y),fill="blue",alpha=0.2)

Отклоненная ошибка: «объект 'var1' не найден» Что-то подсказывает мне, что я неправильно использую аргумент ...