带有facet_grid boxplot的ggplot2水平线

Question

我有一个包含4个变量的数据框。我使用boxplot和facet_grid(intg~del)

绘制了4个变量

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) 我得到了每个方面的所有线条...我怎样才能在每个方面只有一条线？