如何修改ggplot2的geom_text仅显示各branques的最值文本？

要实现仅在每个branques行显示对应value的最小和最大值标签，核心思路是先筛选出需要标注的数据行，再将这些筛选后的数据传给geom_text图层，而非使用完整数据集。

步骤1：筛选标注数据 #

用dplyr分组筛选（代码直观易读）：

library(dplyr)

# 假设你的数据集名为df，包含branques、x轴变量（如year）、value列
df_labels <- df %>%
  group_by(branques) %>%
  # 保留每组中value为最小或最大的行
  filter(value == min(value) | value == max(value)) %>%
  ungroup()

若不想依赖dplyr，用base R也能实现：

df_labels <- df[ave(df$value, df$branques, FUN = function(x) x == min(x) | x == max(x)) == TRUE, ]

步骤2：修改ggplot代码 #

在geom_text中指定data = df_labels，仅用筛选后的数据绘制标签：

library(ggplot2)

ggplot(df, aes(x = year, y = branques, fill = value)) +
  geom_tile() +  # 原热力图图层保持不变
  geom_text(data = df_labels, aes(label = value))  # 仅绘制筛选出的标签

额外注意 #

• 如果某组中存在多个相同的最小值/最大值，上述代码会显示所有对应标签。若只想保留一个，可在筛选时添加distinct(branques, value, .keep_all = TRUE)去重。
• 可按需调整标签样式，比如在geom_text中加入color = "white", size = 3来优化显示效果。

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