如何调整geom_bar中两次geom_text调用的文本位置？

1. 字母置于误差棒顶部或条形左上角 #

根据需求分两种场景调整：

• 放在误差棒顶部：把geom_text的y值设为误差棒的上限（条形高度+标准误），再通过vjust向上偏移避免和误差棒重叠：

  geom_text(aes(y = y + se, label = 你的字母列名), vjust = -0.5, hjust = 0.5)
  

  y + se对应误差棒的最高点，vjust = -0.5让文字在误差棒上方，hjust = 0.5保证水平居中。

• 放在条形左上角（误差棒前方）：将y值设为条形高度，用hjust让文字左移超出条形边界，vjust对齐条形顶部：

  geom_text(aes(y = y, label = 你的字母列名), vjust = 1, hjust = -0.1)
  

  vjust = 1让文字底部对齐条形顶部，hjust = -0.1让文字向左伸出条形，刚好落在左上角位置。

2. 数字置于条形中间 #

普通条形的中间位置是高度的一半，直接把y值设为条形高度的1/2，再设置居中对齐：

geom_text(aes(y = y/2, label = 你的数字列名), vjust = 0.5, hjust = 0.5)

如果是堆叠条形图，则用position_stack自动计算堆叠后的中间位置：

geom_text(aes(label = 你的数字列名), position = position_stack(vjust = 0.5))

完整示例代码 #

假设你的数据集包含类别列x、数值列y、标准误列se、字母标签label、数字标签num，完整代码如下：

library(ggplot2)

# 示例数据集
df <- data.frame(
  x = c("组1", "组2", "组3"),
  y = c(6, 9, 7),
  se = c(0.6, 0.9, 0.7),
  label = c("a", "b", "ab"),
  num = c("6.0", "9.0", "7.0")
)

ggplot(df, aes(x = x, y = y)) +
  geom_bar(stat = "identity", fill = "deepskyblue") +
  geom_errorbar(aes(ymin = y - se, ymax = y + se), width = 0.2) +
  # 字母放在误差棒顶部
  geom_text(aes(y = y + se, label = label), vjust = -0.5, hjust = 0.5, size = 4) +
  # 数字放在条形中间
  geom_text(aes(y = y/2, label = num), vjust = 0.5, hjust = 0.5, color = "white", size = 4) +
  theme_classic()

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