ggplot2中facet_grid分面顺序不遵循plotmath标签设置的级别

问题重现 #

• 加载latex2exp与ggplot2包，模拟数据集datplot
• 将datplot$bta设为因子，指定levels为c("b0","b1","b1-b0")，同时设置plotmath格式的标签
• 使用geom_density_ridges+facet_grid绘图，指定labeller=label_parsed
• 异常表现：分面顺序与预设levels不符，b1和b1-b0位置颠倒；切换为普通标签则正常，facet_wrap也存在相同问题，确认是plotmath解析导致顺序错乱

解决方案 #

核心思路：把因子的顺序控制与plotmath标签解析分离——用简单字符串作为因子level来固定顺序，再通过标签映射实现plotmath解析，避免解析逻辑干扰分面排序。

步骤1：确保因子顺序正确

先将datplot$bta设为因子，用简单字符串定义levels，固定分面顺序：

datplot$bta <- factor(datplot$bta, levels = c("b0", "b1", "b1-b0"))

步骤2：两种标签解析实现方式

方式一：用as_labeller结合label_parsed

定义标签映射关系，再通过as_labeller将标签转为可解析的plotmath格式：

# 定义因子level到plotmath表达式的映射
bta_plotmath_labels <- c(
  "b0" = "beta[0]",
  "b1" = "beta[1]",
  "b1-b0" = "beta[1] - beta[0]"
)

# 绘图时使用自定义labeller
ggplot(datplot, aes(x = value)) +
  geom_density_ridges() +
  geom_rect(data = annotations, aes(xmin = x_start, xmax = x_end, ymin = -Inf, ymax = Inf), 
            fill = "grey", alpha = 0.3, inherit.aes = FALSE) +
  facet_grid(~bta, labeller = as_labeller(bta_plotmath_labels, label_parsed))

方式二：自定义labeller函数

如果需要更灵活的标签逻辑，可自定义labeller函数：

plotmath_labeller <- function(variable, value) {
  # 根据因子值匹配对应的plotmath表达式
  label_map <- c(
    "b0" = "beta[0]",
    "b1" = "beta[1]",
    "b1-b0" = "beta[1] - beta[0]"
  )
  lapply(value, function(x) parse(text = label_map[as.character(x)]))
}

# 绘图时调用自定义labeller
ggplot(datplot, aes(x = value)) +
  geom_density_ridges() +
  geom_rect(data = annotations, aes(xmin = x_start, xmax = x_end, ymin = -Inf, ymax = Inf), 
            fill = "grey", alpha = 0.3, inherit.aes = FALSE) +
  facet_grid(~bta, labeller = plotmath_labeller)

原因说明 #

当直接将plotmath表达式作为因子level时，label_parsed会先解析表达式，解析后的内容可能被ggplot用作分面排序的依据，而非你预设的因子level顺序。通过分离顺序控制与标签解析，因子的排序完全由你定义的levels决定，标签仅负责显示样式，彻底避免顺序错乱问题。

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