如何在单变量ggplot2箱线图中正确添加5个分位数标记

问题根源 #

• 代码语法疏漏：原测试代码中ggplot()调用缺少闭合括号，直接运行会触发语法错误
• 参考方案逻辑错配：此前参考的分位数标注方案，原本是适配x轴为分类分组、y轴为连续观测值的纵向箱线图设计的；当前实现的是x轴为连续mpg变量、仅含单条箱体的横向箱线图，直接套用原有逻辑会触发两个异常：
  • stat_summary默认将x轴的连续逐点值作为分组单位计算统计量，而非对整个mpg向量统一计算分位数
  • 未收敛计算输出维度的quantile函数会返回每个单点对应的计算结果，最终导致所有原始数据点的数值被逐行标注在图上；哪怕传入probs参数也无法修正，因为每个分组仅含1个观测值，计算出的分位数就是观测值本身。

可直接复现的实现方案 #

最稳妥的实现方式是提前计算好需要标注的五个分位数，构造独立的标记数据集绘制文本，完全规避自动分组计算的逻辑偏差：

1. 基于mtcars的mpg字段计算五数概括（最小值、25分位数、中位数、75分位数、最大值）
2. 绘制单条横向箱线时固定箱体的y轴位置为0
3. 用提前算好的分位数作为x轴定位，在箱线下方固定y位置绘制数值标记

完整可运行代码 #

library(ggplot2)

# 计算五数概括值
five_num <- quantile(mtcars$mpg, probs = c(0, 0.25, 0.5, 0.75, 1))

ggplot(mtcars, aes(x = mpg)) +
  # 绘制单条横向箱线，固定y位置为0，控制箱体宽度
  geom_boxplot(width = 0.6, y = 0) +
  # 在箱线下方固定位置绘制分位数文本标记
  geom_text(
    data = data.frame(
      x = five_num,
      y = -0.2  # 调整该值可控制文本距离箱体的垂直距离
    ),
    aes(x = x, label = round(x, 1)),
    size = 3.5
  )

效果说明 #

最终出图仅会在对应箱体的五个关键节点位置标注分位数值，不会出现满屏散落所有原始数据点数值的异常问题。如果需要调整标记位置、字体大小，仅需修改geom_text中的y值、size参数即可；分位数的显示精度可以通过调整round()函数的取位参数修改。

注：如果需要沿用stat_summary实现，需要先将绘图逻辑调整为纵向箱线的适配结构（将mpg作为y轴、设置固定x值为单分组），再传入自定义的五数计算函数，否则依然会触发逐点计算的异常。

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