使用ggplot2::facet_wrap()时如何自动为分面面板添加编号标签

完全可以通过自定义labeller()函数实现需求，无需修改原始数据，也无需依赖已停止维护的第三方包，还可以灵活切换编号格式。

第一步：定义通用编号生成函数 #

你可以直接复用下面的自定义函数，内置了字母/数字两种编号模式，支持自定义前后缀：

label_auto_number <- function(type = c("alpha", "numeric"), prefix = "(", suffix = ")") {
  type <- match.arg(type)
  function(labels) {
    # 提取分面水平值，自动去除变量名前缀
    label_vals <- as.character(labels[[1]])
    # 生成对应序号
    seq_lab <- if (type == "alpha") {
      letters[seq_along(label_vals)]
    } else {
      as.character(seq_along(label_vals))
    }
    # 拼接最终标签
    paste0(prefix, seq_lab, suffix, " ", label_vals)
  }
}

第二步：调用函数实现不同编号效果 #

只需要修改facet_wrap的labeller参数即可，无需调整其他绘图逻辑或原始数据。

示例1：生成(a)、(b)格式的字母编号 #

library(ggplot2)

ggplot(mtcars, aes(qsec, mpg)) + 
  geom_point() + 
  facet_wrap(. ~ am, labeller = label_auto_number()) +
  theme_bw(base_size = 12)

示例2：生成1.、2.格式的数字编号 #

ggplot(mtcars, aes(qsec, mpg)) + 
  geom_point() + 
  facet_wrap(. ~ am, labeller = label_auto_number(type = "numeric", prefix = "", suffix = ".")) +
  theme_bw(base_size = 12)

额外调整说明 #

• 要是不需要显示原始分面水平值（比如不需要展示am的0、1取值），只要把自定义函数最后一行的" ", label_vals删掉即可
• 需要大写字母编号的话，把函数里的letters替换为LETTERS即可
• 可以自由调整前后缀参数，比如设置prefix = "图", suffix = "："就能生成「图a：xxx」的标签格式

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