ggplot2能否自动计算并显示箱线图的统计值标签？

当然可以让ggplot2自动计算并显示箱线图的最小值、下铰链、中位数、上铰链和最大值标签，无需手动汇总数据，以下是两种高效实现方式：

方法一：使用stat_summary()自动计算统计量 #

通过自定义统计函数，让stat_summary()直接在绘图时计算所需的箱线图统计值，并生成标签：

# 定义计算箱线图统计值的函数
box_stats <- function(x) {
  stats <- quantile(x, probs = c(0, 0.25, 0.5, 0.75, 1))
  names(stats) <- c("min", "25th", "median", "75th", "max")
  return(data.frame(y = stats, label = round(stats, 2), stat = names(stats)))
}

# 绘制箱线图并添加自动计算的标签
ggplot(mtcars, aes(x = gear, y = mpg, group = cyl)) +
  geom_boxplot() +
  stat_summary(
    fun.data = box_stats,
    geom = "text",
    aes(label = label),
    position = position_nudge(x = -0.15), # 水平偏移避免与箱线图重叠
    vjust = c(1.5, -0.5, 1.5, -0.5, 1.5) # 根据统计值位置调整垂直对齐
  )

这个方法会自动识别aes中的分组（group = cyl），对每个分组计算统计值，无需手动处理数据分组逻辑，适合复杂数据集。

方法二：提取ggplot已计算的箱线图数据 #

箱线图在绘制时已经自动计算了所有统计值，我们可以直接提取这些数据来添加标签，避免重复计算：

# 先绘制基础箱线图
p <- ggplot(mtcars, aes(x = gear, y = mpg, group = cyl)) +
  geom_boxplot()

# 提取箱线图的统计数据（ggplot内部已计算好）
box_data <- ggplot_build(p)$data[[1]]

# 整理标签数据，调整位置偏移
label_data <- box_data %>%
  select(x, ymin, lower, middle, upper, ymax) %>%
  tidyr::pivot_longer(cols = -x, names_to = "stat", values_to = "y") %>%
  mutate(
    label = round(y, 2),
    vjust = dplyr::case_when(
      stat %in% c("ymin", "middle") ~ 1.5,
      TRUE ~ -0.5
    ),
    x_nudge = -0.15
  )

# 添加标签到箱线图
p +
  geom_text(
    data = label_data,
    aes(x = x + x_nudge, y = y, label = label),
    vjust = label_data$vjust
  )

这种方式直接复用ggplot内部计算的结果，尤其适合已经完成箱线图绘制后，需要补充标签的场景。

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