r - facet_grid boxplotを使用したggplot2水平線

Question

4 つの変数を持つデータ フレームがあります。boxplot を使用して 4 つの変数をプロットし、facet_grid(intg~del)

D = read.table('data.dat')
names(D) = c('size','mut','intg','del')
ggplot(D,aes(x=mut,y=size,fill=as.factor(mut))) + 
geom_boxplot() + 
facet_grid(intg~del)

各ファセットに水平線を追加したいのですが、値は次のように設定された新しい変数です。

  D$exp<-D$intg+60-(D$del*(D$ig+60))

データ：

   size  mutation intg del  expected
   96        0     0   0.2      48   #facet 1
   95        0     0   0.2      48   #facet 1
   90        0.15  0   0.2      48   #facet 1
   73        0.15  0   0.4      36   #facet 2
   62        0.3   10  0.4      42   #facet 3
   82        0.3   20  0.4      48   #facet 4
   47        0.3   20  0.6      32   #facet 5

gggplot に追加すると+geom_hline(yintercept=D$expected) 、各ファセットにすべての行が表示されます...どうすれば各ファセットに 1 行だけを表示できますか?