要在你的箱线图左侧（或右侧）添加自定义标签，我们可以通过创建标注数据框结合geom_text()来实现，同时调整绘图范围确保标签完整显示。下面是针对你的代码的修改方案：

完整代码示例 #

library(ggplot2)

# 生成原始数据
d <- data.frame(randnum = runif(100, min=0, max=10000))

# 准备标注内容：可以自定义标签文本和对应y值
annot_labels <- data.frame(
  label = c("最小值", "Q1", "中位数", "Q3", "最大值"),
  y_val = c(
    min(d$randnum),
    quantile(d$randnum, 0.25),
    median(d$randnum),
    quantile(d$randnum, 0.75),
    max(d$randnum)
  ),
  x_pos = rep(-0.2, 5)  # 负数表示在箱线图左侧，正数则在右侧
)

# 绘制带侧边标签的图形
box1 <- ggplot(d, aes(x = factor(0), y = randnum)) +
  # 原有的箱线图和散点
  geom_boxplot(alpha = 0) +
  geom_jitter(size = 3, alpha = 0.5, color = "tomato") +
  # 添加侧边标签
  geom_text(
    data = annot_labels,
    aes(x = x_pos, y = y_val, label = label),
    hjust = 1,  # 右对齐，贴近箱线图
    color = "darkslategray",
    size = 4
  ) +
  # 可选：添加箭头连接标签和对应数值点
  geom_segment(
    data = annot_labels,
    aes(x = -0.15, xend = 0, y = y_val, yend = y_val),
    color = "gray50",
    arrow = arrow(length = unit(0.1, "cm"))
  ) +
  # 调整x轴范围，避免标签被裁剪
  coord_cartesian(xlim = c(-0.4, 0.4)) +
  # 原有的主题设置
  theme(
    legend.position = "none",
    axis.title = element_blank(),
    axis.text.x = element_blank(),
    axis.ticks.x = element_blank()
  )

box1

关键步骤说明 #

1. 准备标注数据：

   • 创建annot_labels数据框，定义你需要的标签文本、对应的y轴数值（这里用了数据的统计量，你可以替换成任意自定义值），以及标签的x轴位置（负数放在左侧，正数放在右侧）。

2. 添加标签：

   • 使用geom_text()加载标注数据，通过hjust参数控制文本对齐方式（左侧标签用hjust=1右对齐，右侧标签用hjust=0左对齐）。

3. 调整绘图范围：

   • 用coord_cartesian()扩展x轴的显示范围，确保侧边标签不会被绘图区域裁剪，你可以根据标签的长度调整xlim的数值。

4. 可选：添加箭头：

   • 用geom_segment()配合arrow参数，给标签添加指向箱线图的箭头，让标注更直观，和你参考的示例图效果更接近。

如果需要在右侧添加标签，只需要把x_pos改成正数（比如0.2），同时把hjust设为0，并调整xlim的右侧范围即可。

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