如何在R语言ggplot绘图中用箭头标注数值的最大值与最小值？

要在你的散点图或折线图中标注出value的最大值和最小值，你可以先筛选出这两个极值对应的行数据，再用ggplot2的工具实现带箭头的标注。以下是具体实现步骤：

1. 准备数据（含极值筛选） #

首先运行你的数据生成代码，再提取包含最大值和最小值的子数据集，并为它们添加标注文本：

library(tidyverse)

# 原始数据生成代码
n = 1000
date = seq(as.Date("2022/1/1"), by = "day", length.out = n)
value = rnorm(n,0,1)
df = tibble(date,value)

# 筛选极值并添加标注文本
max_min_df <- df %>% 
  filter(value == max(value) | value == min(value)) %>%
  mutate(label = case_when(
    value == max(value) ~ paste("最大值:\n", round(value, 2)),
    value == min(value) ~ paste("最小值:\n", round(value, 2))
  ))

2. 带箭头标注的散点图 #

使用geom_label_repel()实现带箭头的标注，它会自动调整标签位置避免重叠：

ggplot(data = df, aes(x = date, y = value)) + 
  geom_point(alpha = 0.5) + # 降低散点透明度，避免遮挡标注
  geom_label_repel(
    data = max_min_df,
    aes(label = label),
    arrow = arrow(type = "closed", length = unit(0.03, "npc")), # 设置闭合箭头样式
    nudge_y = 0.5, # 调整标签纵向偏移量，避免与散点重叠
    box.padding = 0.5
  )

3. 带箭头标注的折线图 #

同样的方法可以应用到折线图上，还可以根据极值的正负调整标签偏移方向：

ggplot(data = df, aes(x = date, y = value)) + 
  geom_line() +
  geom_label_repel(
    data = max_min_df,
    aes(label = label),
    arrow = arrow(type = "closed", length = unit(0.03, "npc")),
    nudge_y = ifelse(max_min_df$value > 0, 0.5, -0.5), # 正数向上偏移，负数向下偏移
    box.padding = 0.5
  )

补充说明 #

• 若不需要带背景的标签，可将geom_label_repel()替换为geom_text_repel()，同样支持箭头参数；
• nudge_y的数值可根据你的数据范围灵活调整，确保标注清晰不遮挡图形元素。

内容的提问来源于stack exchange，提问作者Homer Jay Simpson