求助：如何在ggplot分组柱状图上叠加居中的点

要让每个柱子上的Dose volume点精准居中，核心是让圆点的位置和柱状条的分组偏移完全匹配，下面给你两种实用方案：

方案一：同步position_dodge参数 #

这是最直接的方法，保证geom_point和geom_col用相同的偏移宽度，圆点会自动对齐到对应柱子的中心：

library(ggplot2)

# 替换成你的实际数据
df <- data.frame(
  分组 = rep(c("A组", "B组", "C组"), each = 2),
  子分组 = rep(c("对照组", "实验组"), 3),
  指标值 = c(10, 15, 8, 12, 14, 18),
  DoseVolume = c(12, 13, 9, 11, 15, 17)
)

ggplot(df, aes(x = 分组, y = 指标值, fill = 子分组)) +
  geom_col(position = position_dodge(width = 0.9)) + # 设置柱子的偏移宽度
  geom_point(aes(y = DoseVolume), 
             position = position_dodge(width = 0.9), # 和柱子用相同的偏移宽度
             size = 3, color = "#ff0000")

方案二：手动微调x轴位置 #

如果需要更灵活的控制，把x轴转成数值类型后手动添加偏移量：

ggplot(df, aes(x = 分组, y = 指标值, fill = 子分组)) +
  geom_col(position = position_dodge(width = 0.9)) +
  geom_point(aes(x = as.numeric(分组) + ifelse(子分组 == "对照组", -0.225, 0.225), 
                 y = DoseVolume),
             size = 3, color = "#ff0000")

这里的-0.225和0.225是按0.9/4计算得出的，你可以根据柱子的实际宽度调整这个数值。

关键提醒 #

• 一定要保证圆点的分组逻辑和柱子完全一致，比如都用同一个子分组变量做区分，不然偏移会错位。
• 如果你的x轴是连续型变量，换用position_nudge调整位置即可。

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