R语言ggplot2分面轴：下标标签正常但多行标签失效问题

嗨，我之前也碰到过这个坑！咱们先拿你用的mpg数据集复现一下问题，这样能更清楚地定位原因：

library(ggplot2)
library(dplyr)

# 模拟你的数据处理逻辑：给drv设置带下标标签，给class设置多行标签
mpg_facet <- mpg %>%
  mutate(
    drv_label = case_when(
      drv == "4" ~ "4[wd]",  # 期望显示为4ₙₙₙ
      drv == "f" ~ "Front",
      drv == "r" ~ "Rear"
    ),
    class_label = case_when(
      class == "2seater" ~ "2\nseater",  # 期望显示成两行
      TRUE ~ class
    )
  )

# 绘制分面图，用label_parsed解析下标
ggplot(mpg_facet, aes(x = displ, y = hwy)) +
  geom_point() +
  facet_grid(drv_label ~ class_label, labeller = label_parsed)

运行这段代码后，你会发现drv的下标正常显示了，但class里的"2seater"多行标签却变成了一行——这是因为**label_parsed是基于R的plotmath语法工作的，而plotmath不识别\n作为换行符**，它会把\n当成普通文本直接输出。

那怎么同时实现下标和多行标签呢？这里有两个实用的解决方案：

方案1：用ggtext包的markdown语法（推荐，更简洁） #

ggtext包支持用markdown语法来渲染文本，既可以用<sub>标签做下标，也能用<br>或者\n实现换行，完美解决冲突：

library(ggplot2)
library(ggtext)
library(dplyr)

mpg_facet <- mpg %>%
  mutate(
    # 用markdown的<sub>标签实现下标
    drv_label = case_when(
      drv == "4" ~ "4<sub>wd</sub>",
      drv == "f" ~ "Front",
      drv == "r" ~ "Rear"
    ),
    # 用<br>实现换行（也可以用\n，ggtext都支持）
    class_label = case_when(
      class == "2seater" ~ "2<br>seater",
      TRUE ~ class
    )
  )

ggplot(mpg_facet, aes(x = displ, y = hwy)) +
  geom_point() +
  facet_grid(drv_label ~ class_label, labeller = label_markdown) +
  # 关键：把分面标签的主题改成element_markdown，让markdown语法生效
  theme(
    strip.text.x = element_markdown(),
    strip.text.y = element_markdown()
  )

方案2：自定义labeller函数，分别处理不同分面轴 #

如果你不想额外安装包，可以写一个自定义的labeller，对需要下标行的分面用label_parsed，对需要换行的列分面单独处理换行：

library(ggplot2)
library(dplyr)

mpg_facet <- mpg %>%
  mutate(
    drv_label = case_when(
      drv == "4" ~ "4[wd]",
      drv == "f" ~ "Front",
      drv == "r" ~ "Rear"
    ),
    class_label = case_when(
      class == "2seater" ~ "2\nseater",
      TRUE ~ class
    )
  )

# 自定义labeller：行标签用parse解析下标，列标签拆分换行符实现多行
custom_labeller <- labeller(
  drv_label = label_parsed,
  class_label = function(x) lapply(strsplit(x, "\n"), identity)
)

ggplot(mpg_facet, aes(x = displ, y = hwy)) +
  geom_point() +
  facet_grid(drv_label ~ class_label, labeller = custom_labeller)

这个方法的核心是对列标签用strsplit拆分\n，把每个标签拆成字符向量，ggplot2会自动把向量的每个元素当成一行显示。

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