如何将geom_point()置于使用position_dodge2的分组柱状图中间？

要实现点对齐到分组柱状图的正中间，同时保持柱子右偏移至刻度标签右侧，核心是利用position_dodge2的宽度参数计算点的偏移位置，具体步骤如下：

1. 构造示例数据 #

先准备测试用的分组数据：

library(ggplot2)
library(dplyr)

df <- data.frame(
  group = factor(rep(c("A", "B", "C"), each = 2)),
  subgroup = rep(c("X", "Y"), 3),
  value = c(3, 5, 2, 4, 6, 3)
)

2. 绘制偏移的分组柱状图 #

用position_dodge2(just=0)让柱子左边缘对齐刻度（即整体右偏移到标签右侧），同时设置柱子宽度和分组宽度：

# 定义分组宽度（position_dodge2的width参数）
dodge_width <- 0.9

ggplot(df, aes(x = group, y = value, fill = subgroup)) +
  geom_col(
    position = position_dodge2(just = 0, width = dodge_width),
    width = 0.4  # 单个柱子宽度，可根据需求调整
  )

3. 添加居中的点 #

因为position_dodge2(just=0)把整个分组的左边缘对齐到刻度的整数位置（比如group"A"对应x=1），分组的总宽度是dodge_width，所以分组中间的位置就是刻度位置 + dodge_width/2。

可以用两种方式实现：

方式一：手动计算x位置

先按group聚合数据（比如取均值或总和），然后直接指定点的x坐标：

ggplot(df, aes(x = group, y = value, fill = subgroup)) +
  geom_col(
    position = position_dodge2(just = 0, width = dodge_width),
    width = 0.4
  ) +
  # 按group聚合，计算点的x位置为as.numeric(group) + dodge_width/2
  geom_point(
    aes(x = as.numeric(group) + dodge_width/2, y = mean(value)),
    data = df %>% group_by(group) %>% summarize(value = mean(value)),
    size = 3, color = "black"
  )

方式二：用position_nudge偏移

更简洁的方式是用position_nudge直接把点向右偏移dodge_width/2：

ggplot(df, aes(x = group, y = value, fill = subgroup)) +
  geom_col(
    position = position_dodge2(just = 0, width = dodge_width),
    width = 0.4
  ) +
  geom_point(
    data = df %>% group_by(group) %>% summarize(value = mean(value)),
    size = 3, color = "black",
    position = position_nudge(x = dodge_width/2)
  )

关键说明 #

• 如果你调整了position_dodge2的width参数，只需要同步修改position_nudge的x值为新宽度的一半即可，保证点始终在分组柱中间。
• 单个柱子的width可以根据视觉需求调整，不影响点的居中位置，因为点的位置由分组总宽度决定。

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