如何在R语言中创建从非零值发散的发散条形图？

核心思路 #

常规发散条形图以0为基准，要改成指定非零均值为基准，关键是先计算数据相对于这个基准值的差值，再通过绘图时的坐标轴调整，把基准线映射到指定的均值位置，同时让条形的正负方向对应偏离基准的方向。

具体实现步骤（以ggplot2为例） #

以下是完整的代码示例，附带详细解释：

1. 加载必要包并准备数据

library(ggplot2)

# 示例数据：类别、实际值
df <- data.frame(
  category = c("A", "B", "C", "D", "E"),
  value = c(12, 8, 15, 5, 10)
)

# 指定非零基准平均值（这里设为10）
baseline <- 10

# 计算每个值与基准的差值，同时保留基准值用于绘图
df$diff <- df$value - baseline

2. 绘制发散条形图

ggplot(df, aes(y = category)) +
  # 绘制水平条形：x轴用差值，正负对应偏离方向
  geom_col(aes(x = diff, fill = diff > 0), width = 0.6) +
  # 添加基准线（对应指定的平均值位置）
  geom_vline(xintercept = 0, linetype = "dashed", color = "gray50") +
  # 调整x轴刻度：把差值转换回实际值，让坐标轴显示真实数值
  scale_x_continuous(
    breaks = seq(-5, 5, 2),  # 差值的刻度范围
    labels = seq(-5 + baseline, 5 + baseline, 2)  # 转换为实际值标签
  ) +
  # 设置填充颜色：大于基准值的为一种颜色，小于的为另一种
  scale_fill_manual(values = c("#FF6B6B", "#4ECDC4"), 
                    labels = c("低于基准", "高于基准"),
                    name = "偏离方向") +
  # 添加坐标轴和标题
  labs(
    x = "实际值",
    y = "类别",
    title = "以平均值10为基准的水平发散条形图"
  ) +
  theme_minimal()

效果说明 #

• 条形的长度代表实际值与基准值的偏离程度，向左（负值）表示低于基准，向右（正值）表示高于基准。
• 虚线代表指定的基准平均值（这里是10），通过x轴刻度的转换，坐标轴直接显示实际数值，直观呈现每个类别相对于基准的位置。

扩展：类似示例棒棒糖图的实现 #

如果想要做出你提到的棒棒糖图效果（以指定均值为基准的发散棒棒糖图），只需要把geom_col换成geom_segment和geom_point即可：

ggplot(df, aes(y = category)) +
  # 绘制从基准到实际值的线段
  geom_segment(aes(x = 0, xend = diff, yend = category), color = "gray70") +
  # 绘制实际值的点
  geom_point(aes(x = diff, color = diff > 0), size = 4) +
  # 基准线和坐标轴调整同前
  geom_vline(xintercept = 0, linetype = "dashed", color = "gray50") +
  scale_x_continuous(
    breaks = seq(-5, 5, 2),
    labels = seq(-5 + baseline, 5 + baseline, 2)
  ) +
  scale_color_manual(values = c("#FF6B6B", "#4ECDC4"), 
                    labels = c("低于基准", "高于基准"),
                    name = "偏离方向") +
  labs(
    x = "实际值",
    y = "类别",
    title = "以平均值10为基准的发散棒棒糖图"
  ) +
  theme_minimal()

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