ggplot2分面标签如何同时支持文本换行与plotmath数学公式解析

核心逻辑 #

通过自定义labeller函数，仅对标签中引号包裹的纯文本部分做换行处理（避免破坏plotmath语法），最后将处理后的字符串解析为plotmath表达式传给分面系统，同时满足三个需求：

• 保留手动添加的\n换行符
• 支持按指定宽度自动折行
• 正确渲染上标、下标等plotmath数学格式

完整实现代码 #

# 加载依赖包
library(ggplot2)
library(stringr)

# 准备示例数据，修正标签写法（手动换行符需放在引号包裹的纯文本内部）
data("mtcars")
mtcars$am <- factor(
  x = mtcars$am,
  levels = c("1", "0"),
  labels = c(
    "paste('Amerikee C (mg C kg ', tuna^-1, ')')",
    "paste('Is watchin  \n(mg  ', CO[2], ' kg tuna'^-1, d^-1, ')')"
  )
)

# 自定义标签器：支持自动折行+plotmath解析
label_wrap_parsed <- function(width = 20) {
  function(labels) {
    processed_labels <- lapply(labels, function(lab) {
      # 仅处理引号包裹的纯文本片段，不触碰plotmath语法部分
      str_replace_all(
        string = lab,
        pattern = "(['\"])(.*?)(?<!\\\\)\\1",
        replacement = function(match) {
          inner_text <- str_sub(match, 2, -2)
          # 纯文本折行：保留原有手动换行，自动按指定宽度拆分
          wrapped_text <- str_wrap(
            string = inner_text,
            width = width,
            preserve_whitespace = TRUE
          )
          str_c(str_sub(match, 1, 1), wrapped_text, str_sub(match, -1, -1))
        }
      )
    })
    # 将处理后的字符串解析为plotmath表达式
    parsed <- lapply(processed_labels, function(x) parse(text = x))
    as_labeller(setNames(unlist(parsed), names(labels)))
  }
}

# 绘图
ggplot(data = mtcars, aes(x = mpg, y = disp)) +
  geom_point() +
  facet_wrap(
    ~ am,
    scales = "free_y",
    strip.position = "left",
    # 调用自定义标签器，适配Y轴侧标签宽度
    labeller = label_wrap_parsed(width = 15)
  ) +
  ylab("") +
  # 调整标签样式适配多行显示
  theme(
    strip.text.y.left = element_text(angle = 0, vjust = 0.5, size = 10),
    strip.background = element_blank()
  )

关键说明 #

• 原始标签修正：手动换行符\n需放在引号包裹的纯文本内部，不能作为paste()的独立参数，否则会被plotmath解析器忽略或报错
• 折行逻辑：仅对引号内的普通文本做折行，不会拆分tuna^-1、CO[2]这类plotmath语法片段，避免破坏表达式结构
• 宽度调整：可根据实际标签长度修改label_wrap_parsed(width = N)的参数，适配分面侧的预留空间
• 样式调整：通过strip.text.y.left参数设置Y轴侧标签为水平显示，配合多行折行效果更美观

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