如何在scales='free'的分面网格中自动添加唯一字母标记？

当分面使用scales='free'时，无需手动计算每个面板的坐标，有两种简洁的自动实现方式：

方法一：利用ggplot原生的panel_range统计量 #

通过stat="panel_range"获取每个面板的坐标极值，结合相对比例计算标签位置，确保在所有分面中视觉位置一致：

library(ggplot2)
library(dplyr)

# 为每个分面分配字母标签
labeled_data <- mtcars %>%
  group_by(cyl, gear) %>% # 替换为你的分面变量
  mutate(facet_label = letters[cur_group_id()]) %>%
  ungroup()

ggplot(labeled_data, aes(mpg, hp)) + # 替换为你的绘图变量
  geom_point() +
  facet_grid(cyl ~ gear, scales = "free") + # 替换为你的分面方式
  geom_text(
    aes(
      x = after_stat(xmin) + 0.02*(after_stat(xmax)-after_stat(xmin)),
      y = after_stat(ymax) - 0.02*(after_stat(ymax)-after_stat(ymin)),
      label = facet_label
    ),
    stat = "panel_range",
    hjust = 0, vjust = 1,
    fontface = "bold", size = 5
  )

方法二：使用ggh4x包简化实现 #

ggh4x包的stat_facet可以直接调用ggplot内部的分面索引，快速添加标签：

library(ggplot2)
library(ggh4x)

ggplot(mtcars, aes(mpg, hp)) + # 替换为你的绘图变量
  geom_point() +
  facet_grid(cyl ~ gear, scales = "free") + # 替换为你的分面方式
  stat_facet(
    geom = "text",
    aes(label = letters[as.integer(PANEL)]),
    x = -Inf, y = Inf,
    hjust = -0.1, vjust = 1.1,
    fontface = "bold", size = 5
  )

两种方法都能自动适配scales='free'的分面，标签会固定在每个面板的相对位置（示例中为左上角），无需手动计算坐标。

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