使用ggplot2的label_bquote为分面各行设置不同自定义标签遇到问题

错误原因 #

你之前的写法问题在于：直接将固定列表传入label_bquote时，每个分面都会渲染整个列表的全部内容，而非按分面顺序提取对应元素，因此所有分面都会显示全部7个标签。

推荐实现方式（更稳定，适配表达式需求） #

使用label_parsed配合命名向量实现分面标签的自定义，代码如下：

library(ggplot2)
# 构造分面变量
mpg$class2 <- reorder(mpg$class, mpg$displ)
# 获取分面变量的水平顺序，保证标签和分面一一对应
class_levels <- levels(mpg$class2)
# 按顺序定义你需要的自定义标签，用字符串格式存储plotmath表达式
custom_labels <- c(
  "2S[e] ~ (sigma ~ m^-3)",
  "sigma[U]",
  "three",
  "for",
  "five",
  "six",
  "psi"
)
# 给标签向量命名，名字对应分面变量的水平
names(custom_labels) <- class_levels
# 绘图
ggplot(mpg, aes(displ, hwy)) +
  geom_point() +
  facet_wrap(
    ~ class2, 
    ncol = 1, 
    scales = "free_y",
    strip.position = "left",
    labeller = labeller(class2 = label_parsed(custom_labels))
  )

如果你需要坚持用label_bquote实现 #

可以提前构造标签列表，通过.x指代当前分面的水平值进行索引：

library(ggplot2)
mpg$class2 <- reorder(mpg$class, mpg$displ)
# 按分面水平顺序构造标签列表
label_list <- list(
  bquote("2S"[e]~(sigma ~m^-3)),
  bquote(sigma[U]),
  bquote(three),
  bquote(for),
  bquote(five),
  bquote(six),
  bquote(psi)
)
names(label_list) <- levels(mpg$class2)

ggplot(mpg, aes(displ, hwy)) +
  geom_point() +
  facet_wrap(
    ~ class2, 
    ncol = 1, 
    scales="free_y",
    strip.position = "left",
    labeller = label_bquote(rows = .(label_list[[.x]]))
  )

注意事项 #

自定义标签的顺序必须和levels(mpg$class2)输出的分面水平顺序完全一致，否则会出现标签和分面不匹配的问题。

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