如何在geom_col()柱状图中正确对齐geom_text标签？

你的标签位置混乱、部分消失的问题源于两个核心问题：

1. 水平柱状图的标签定位错误：直接用values作为标签x坐标，配合hjust="inward"会因数值正负导致对齐方向混乱——正值标签贴柱顶、负值贴柱底，小数值标签甚至会被挤出可视范围。
2. position_dodge参数不匹配：geom_col和geom_text的dodge宽度未统一，导致标签与对应柱子错位。

library(tidyverse)

state_retail %>% 
  group_by(subsector) %>% 
  summarise(avg_change_yoy = mean(change_yoy, na.rm = TRUE),
            avg_change_yoy_se = mean(change_yoy_se, na.rm = TRUE),
            total = sum(avg_change_yoy + avg_change_yoy_se)) %>% 
  pivot_longer(cols = c("avg_change_yoy", "avg_change_yoy_se"),
               names_to = "avgs",
               values_to = "values") %>% 
  arrange(desc(total)) %>% 
  slice_head(n = 12) %>% 
  ggplot(aes(values, reorder(avgs, values), fill = subsector, color = subsector)) +
  # 统一dodge宽度，确保柱子与标签对齐
  geom_col(position = position_dodge(width = 0.8)) +
  scale_y_discrete(labels = c(
    "avg_change_yoy" = "Average Change Yoy",
    "avg_change_yoy_se" = "Average Change Yoy Se"
  )) +
  theme(legend.position = "bottom") +
  geom_text(
    aes(
      x = values / 2,  # 将标签定位在柱子水平中点（从0到values的中间位置）
      label = format(round(values, digits = 2), big.mark = ",")
    ),
    hjust = 0.5,  # 强制水平居中
    size = 4, 
    color = "white", 
    position = position_dodge(width = 0.8)  # 与geom_col的dodge宽度完全一致
  )

• 标签x坐标设为values/2：水平柱状图的柱子从x=0延伸至x=values，values/2恰好是柱子的中点，确保标签始终处于柱子内部中心位置。
• 统一position_dodge(width=0.8)：让标签与对应柱子的并排位置完全匹配，避免错位。
• 改用hjust=0.5：直接强制标签居中，不再依赖inward的自动方向判断，彻底消除正负值带来的对齐混乱。

修改后所有标签都会稳定居中在各自柱子内部，不会出现偏移或消失的情况。

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