如何在ggplot横向分面右侧为网格线添加自上而下的序号标注？

方法一：手动指定网格线位置 #

先创建标注数据，再将其添加到图表中：

1. 加载依赖包并准备标注数据

library(ggplot2)
library(dplyr)

# 创建标注数据框：指定网格线位置和对应序号
label_df <- tibble(
  x = max(df$x) + 0.2,  # 偏移到图表右侧
  y = c(1, 0, -1),       # 自上而下的网格线y值位置
  label = c("1", "2", "3")
)

2. 绘制带标注的图表

df %>% 
  ggplot(aes(x, y)) +
  geom_boxplot() +
  coord_flip() +
  # 添加序号标注
  geom_text(data = label_df, aes(x = x, y = y, label = label),
            size = 4, color = "gray50") +
  # 扩展x轴范围，避免标注被截断
  scale_x_discrete(expand = expansion(add = 0.3))

方法二：自动提取图表网格线位置 #

如果需要适配不同数据的自动标注，可以提取图表的原生刻度：

1. 先绘制基础图表并提取刻度信息

# 生成基础图表对象
base_plot <- df %>% 
  ggplot(aes(x, y)) +
  geom_boxplot() +
  coord_flip()

# 提取y轴的主要刻度（翻转后对应横向网格线）
plot_info <- ggplot_build(base_plot)
y_grid_breaks <- plot_info$layout$panel_params[[1]]$y$breaks

# 选取前3个自上而下的刻度（按y值从高到低排序）
selected_breaks <- sort(y_grid_breaks, decreasing = TRUE)[1:3]
auto_label_df <- tibble(
  x = max(df$x) + 0.2,
  y = selected_breaks,
  label = as.character(1:length(selected_breaks))
)

2. 完成带自动标注的图表

base_plot +
  geom_text(data = auto_label_df, aes(x = x, y = y, label = label),
            size = 4, color = "gray50") +
  scale_x_discrete(expand = expansion(add = 0.3))

注意事项 #

• 可调整x = max(df$x) + 0.2中的偏移量，确保标注位置合适
• 通过修改geom_text()的size、color参数，让标注和图表风格匹配
• scale_x_discrete(expand = ...)的扩展值可根据标注长度灵活调整

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