使用ggplot2高亮柱状图最大值时的对齐问题解决方法

我正在尝试用ggplot2强调分组柱状图中的最高值。已经成功生成分组柱状图并在柱子上添加了数值标签，但使用annotate()函数高亮最大值时遇到了对齐问题。

使用的代码如下：

library(ggplot2)

data <- read.csv("D:\Athira\Elephant\eleph_count\distance\distance_st.csv")
data$Distance <- factor(data$Distance, levels = c("0-5", "5-10", "10-50", "50-100", ">100"))
ggplot(data, aes(Distance, Count, fill = State)) +
  geom_bar(stat = "identity", position = "dodge", width = 0.90, colour = "black") +
  labs(x = "Distance (Km)", y = "Count") +
  scale_fill_manual(values = c(
    "Andra Pradesh" = "#00798c",
    "Assam" = "#d1495b",
    "Jharkhand" = "#edae49",
    "Maharashtra" = "#66a182",
    "Nagaland" = "#2e4057",
    "Odisha" = "yellow",
    "Tamil Nadu" = "blue"
  )) +
  geom_text(data = data_filtered, aes(label = Count), color = "black", size = 3, vjust = -0.30,
            position = position_dodge(width = 0.90), hjust = 0.8) +
  annotate("text", x = max_values$Distance, y = max_values$Count + 1,  # Adjusted y-coordinate
           label = max_values$Count, color = "red", size = 3, vjust = 0.8, hjust = -2.9) +
  theme_classic() +
  theme(
    text = element_text(size = 10.5),
    axis.text.x = element_text(color = "black", size = 10),
    axis.text.y = element_text(color = "black", size = 10)
  )

生成的图表中，红色的最大值标签未对齐到对应柱子上方，位置偏移明显。

问题出在annotate()函数的特性上——它是针对整个绘图区域添加注释，无法自动适配分组柱状图中position_dodge的偏移逻辑。要解决对齐问题，改用geom_text()来高亮最大值即可，步骤如下：

1. 确认max_values数据集有效性：确保该数据集包含每个Distance分组中最大值对应的State、Distance和Count数据。
2. 替换annotate为geom_text：利用geom_text的position_dodge参数，让标签自动对齐到目标柱子上方。

修改后的完整代码 #

library(ggplot2)

data <- read.csv("D:\Athira\Elephant\eleph_count\distance\distance_st.csv")
data$Distance <- factor(data$Distance, levels = c("0-5", "5-10", "10-50", "50-100", ">100"))

ggplot(data, aes(Distance, Count, fill = State)) +
  geom_bar(stat = "identity", position = "dodge", width = 0.90, colour = "black") +
  labs(x = "Distance (Km)", y = "Count") +
  scale_fill_manual(values = c(
    "Andra Pradesh" = "#00798c",
    "Assam" = "#d1495b",
    "Jharkhand" = "#edae49",
    "Maharashtra" = "#66a182",
    "Nagaland" = "#2e4057",
    "Odisha" = "yellow",
    "Tamil Nadu" = "blue"
  )) +
  # 普通数值标签
  geom_text(data = data_filtered, aes(label = Count), color = "black", size = 3, vjust = -0.30,
            position = position_dodge(width = 0.90)) +
  # 高亮最大值标签
  geom_text(data = max_values, aes(label = Count), color = "red", size = 3, 
            vjust = -0.30, position = position_dodge(width = 0.90)) +
  theme_classic() +
  theme(
    text = element_text(size = 10.5),
    axis.text.x = element_text(color = "black", size = 10),
    axis.text.y = element_text(color = "black", size = 10)
  )

关键说明 #

• geom_text通过data参数指定仅用于最大值的数据集，配合和geom_bar一致的position_dodge(width = 0.90)，就能让标签自动对齐到对应分组柱子的正上方。
• 无需手动调整hjust或vjust的极端值，保持和普通标签一致的vjust = -0.30即可让红色标签处于柱子顶部的正确位置。
• 若需要更突出的高亮效果，可给最大值标签添加粗体（fontface = "bold"）或增大字号。

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