График расходящейся гистограммы (с y-hline, отличным от 0) с ggplot2

Я провел эксперимент с Y-maze, где значения идут от 0 (общее предпочтение стимулу А) до 1 (общее предпочтение стимулу B), индексный ответ рассчитывается как: # flies on stimulus B/(# flies stimulus A+B)

Значение А 0,5 означает отсутствие дифференциального выбора (случайное распределение 50-50) Мне нужно сделать расходящийся график средствами, очень похожими на то, что было с ggplot2:

ПРИМЕЧАНИЕ: значения y начинаются с 0,5, я хочу сделать горизонтальную линию в y = 0,5, а полосы начинаются с 0,5.

вот некоторые из моих данных:

data<-data.frame(Line= c(21,181,208,217), mean= c(0.584, 0.897, 0.345, 0.67)
data$Linea<-as.factor(data$Line)

Я пробовал этот код:

data$category<- ifelse(data$mean >0.5, "grape","apple")

ggplot(data,aes(x = Line ,y =mean)) + 
  geom_bar(aes(fill = category),stat = "identity") +
  labs(title= "Diverging Bars")+
  ylim(0,1)+ geom_hline(yintercept = 0.5)

и что у меня было это: