如何用ggplot2绘制以y=0.5为基线的发散条形图

我明白你想要的是以y=0.5为基准线，条形从这个线出发，高于0.5的部分向上延伸，低于的向下延伸的发散条形图——你的原始代码问题在于，geom_bar默认是从y=0开始绘制到mean值，而不是从0.5开始，所以才不符合预期。下面给你两种可行的解决方案：

方法一：用geom_rect直接控制条形的起始/结束位置 #

这种方法最直观，直接定义每个条形的上下边界，完全贴合你的需求：

首先处理数据（修正了你代码里的Linea笔误，直接把Line转成因子即可）：

data <- data.frame(Line= c(21,181,208,217), mean= c(0.584, 0.897, 0.345, 0.67))
data$Line <- as.factor(data$Line)
data$category <- ifelse(data$mean > 0.5, "grape","apple")

然后绘图：

library(ggplot2)

ggplot(data, aes(x = Line)) +
  # 绘制从0.5到mean的矩形条形
  geom_rect(
    aes(
      xmin = as.numeric(Line) - 0.35,  # 控制条形宽度
      xmax = as.numeric(Line) + 0.35,
      ymin = 0.5,                      # 条形起始于基准线0.5
      ymax = mean,                     # 条形结束于你的mean值
      fill = category
    )
  ) +
  # 添加基准线
  geom_hline(yintercept = 0.5, color = "black", linetype = "dashed") +
  # 设置y轴范围为0-1，符合偏好指数的定义
  scale_y_continuous(limits = c(0, 1)) +
  # 自定义标签
  labs(
    title = "Y-maze Preference Diverging Bars",
    y = "Preference Index",
    x = "Line",
    fill = "Preference"
  ) +
  # 可选：使用简洁的主题
  theme_minimal()

方法二：用geom_col结合差值映射 #

这种方法通过计算mean与0.5的差值，再调整y轴标签来实现效果，适合习惯用geom_col的场景：

# 先计算与基准线的差值
data$diff <- data$mean - 0.5

ggplot(data, aes(x = Line)) +
  # 用差值作为条形高度
  geom_col(aes(y = diff, fill = category), width = 0.7) +
  # 把y轴的差值刻度转换回原始偏好指数
  scale_y_continuous(
    breaks = seq(-0.5, 0.5, 0.25),
    labels = seq(0, 1, 0.25),
    limits = c(-0.5, 0.5)
  ) +
  # 基准线对应差值为0的位置
  geom_hline(yintercept = 0, color = "black", linetype = "dashed") +
  labs(
    title = "Y-maze Preference Diverging Bars",
    y = "Preference Index",
    x = "Line",
    fill = "Preference"
  ) +
  theme_minimal() +
  # 可选：翻转坐标轴变成横向条形图，更易读
  coord_flip()

两种方法都能实现你要的效果：条形从0.5基准线出发，向上/向下延伸对应偏好B/A的程度，完全匹配你的实验数据需求。

内容的提问来源于stack exchange，提问作者satower