在R ggplot2图形中解析并换行离散X轴标签

你遇到的问题核心在于：parse(text = x)返回的是表达式（expression）对象，而str_wrap只能处理字符串。直接将表达式传递给str_wrap时，R会自动把表达式转换成原始的plotmath代码字符串，自然达不到解析后换行的效果。

下面提供两种实用的解决方案：

方案1：用plotmath的atop()手动拆分标签 #

plotmath内置的atop()函数可以将内容拆分为上下两行，适合在纯plotmath语法里实现换行。只需修改原始标签的plotmath代码，用atop()包裹需要拆分的部分即可：

library(tidyverse)

# 修改term的plotmath代码，用atop拆分长标签
data <- data.frame(term=rep(c("Silt~('%')", 
                             "atop(Saturated~soil~water~content, (m^3/m^3))",
                             "atop(Extreme~minimum~`30-year`~temperature, (degree*C))"),
                           each=100),
                  value=rnorm(300))

ggplot(data,aes(x=term,y=value))+
  geom_boxplot()+
  coord_flip()+
  xlab("Variable")+
  scale_x_discrete(labels = function(x) parse(text = x))+ 
  ylab("% Decrease MSE")+ 
  theme_classic()

方案2：用ggtext包支持markdown格式（更灵活） #

如果觉得plotmath语法太繁琐，可以用ggtext包，它支持在标签里混用普通文本、markdown换行（<br>）和LaTeX数学表达式，可读性更强：

library(tidyverse)
library(ggtext)

# 改用markdown格式的标签，<br>换行，$包裹数学表达式
data <- data.frame(term=rep(c("Silt (%)", 
                             "Saturated soil water content<br>$(m^3/m^3)$",
                             "Extreme minimum 30-year temperature<br>$(\\degree C)$"),
                           each=100),
                  value=rnorm(300))

ggplot(data,aes(x=term,y=value))+
  geom_boxplot()+
  coord_flip()+
  xlab("Variable")+
  scale_x_discrete(labels = markdown)+ 
  ylab("% Decrease MSE")+ 
  theme_classic()+
  # 必须设置轴文本为element_markdown()才能解析markdown
  theme(axis.text.y = element_markdown())

关键说明 #

• 方案1完全依赖ggplot原生的plotmath，不需要额外包，但需要熟悉plotmath语法；
• 方案2用markdown语法更直观，适合复杂标签的排版，尤其适合同时包含普通文本和数学表达式的场景。

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