如何在分面geom_boxplot中对齐箱线图数据计数标签？

实现方法：动态计算标签位置 #

当设置scales="free"时，每个分面的y轴范围独立，不能用固定数值偏移定位标签。要让计数标签对齐到每个箱线图的最小值（下须底端）上方，需要自定义统计函数，基于每个分组的y值范围动态计算标签位置：

1. 编写自定义函数，计算每个分组的最小值、y值范围，给标签设置略高于最小值的位置（比如取范围的2%作为偏移），同时返回数据计数：

count_label_fun <- function(x) {
  y_min <- min(x)
  y_range <- max(x) - y_min
  # 偏移量设为y范围的2%，确保标签在最小值上方且适配分面范围
  y_pos <- y_min + y_range * 0.02
  data.frame(y = y_pos, label = paste0("n=", length(x)))
}

2. 在ggplot中调用该函数，通过stat_summary生成标签：

library(ggplot2)

ggplot(mtcars, aes(x = factor(cyl), y = mpg)) +
  geom_boxplot() +
  facet_wrap(~gear, scales = "free") +
  stat_summary(fun.data = count_label_fun, geom = "text", vjust = 1)

这里vjust=1让标签底部对齐到计算出的y位置，刚好贴合最小值上方。

关于stat_summary的y轴位置逻辑 #

stat_summary的y轴位置完全由你指定的统计函数返回的y值决定：

• 用fun.y参数时，函数需返回单个数值，该值就是标签/图形元素的y坐标；
• 用fun.data参数时，必须返回包含y列的数据框，y列的数值就是位置依据；
• 默认统计函数（比如mean、median）会把对应统计量的y值作为位置，例如stat_summary(fun=mean, geom="point")会让点落在每组y值的均值位置。

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