ggplot2 горизонтальная линия с блоком facet_grid

Question

У меня есть фрейм данных с 4 переменными. Я построил 4 переменных, используя boxplot и 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)Я получаю все строки на каждом фасете... Как я могу иметь только одну линию на каждом фасете?