r - 使用 ggplot2 的发散条形图（y-hline 不同于 0）

Question

我做了一个Y-maze实验，其中值从 0（对刺激 A 的总偏好）到 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)

我所拥有的是：

标签： rggplot2