R语言中latex2exp引发ggplot标签对齐异常的解决方法

问题复现 #

ggplot2 箱线图场景下，x轴分类标签携带\n换行符时，原生渲染可自动居中对齐，显示效果正常，基础实现代码如下：

library(ggplot2)
library(latex2exp)
theme_set(theme_grey())

set.seed(10)
df <- data.frame(y=rnorm(120), 
                 x=rep(c("bar", 
                         "long\ncategory\nname", 
                         "longspacesuperscript\n(mm$^{2}$)"
                          ), 
                       each=40)
                  )

# 原生标签效果
p1 <- ggplot(data = df, aes(x, y)) + 
  geom_boxplot() +
  scale_x_discrete() +
  ggtitle("原生标签：换行正常，居中对齐")
print(p1)

直接调用latex2exp::TeX作为刻度标签转换函数时，会出现多行标签左对齐、公式渲染异常的问题：

# 直接调用TeX的异常效果
p2 <- ggplot(data = df, aes(x, y)) + 
     geom_boxplot() +
     scale_x_discrete(labels = latex2exp::TeX) +
     ggtitle("直接调用TeX：标签左对齐，公式渲染异常")
print(p2)

通过主题系统调整axis.text.x的vjust/hjust参数，仅能整体移动标签位置，无法修正标签文本框内部的对齐偏差，在TeX()内传入LaTeX原生对齐命令也无法生效：

# 调整vjust仅能移动整体位置
p3 <- p2 + theme(axis.text.x=element_text(vjust=-1)) +
        ggtitle("调整vjust：仅整体移位，内部对齐仍异常")
print(p3)

核心待解决问题：

• 如何调整latex2exp::TeX()内部文本对齐逻辑，支持直接适配数据原始因子命名，无需手动逐个指定标签文本
• 如何在ggplot中正常渲染LaTeX语法的同时，实现和原生标签一致的居中对齐效果，不遮挡坐标轴

可行解决方案 #

方案1：自定义包装函数适配latex2exp自动居中 #

latex2exp默认不会给换行拆分的多行文本添加居中排版标记，可写一层简单的包装函数，自动识别标签内的\n换行符，给多行内容包裹LaTeX居中环境，直接传入labels参数即可，无需修改原始数据：

# 自动居中的TeX转换函数
tex_centered <- function(label_text) {
  processed <- lapply(strsplit(label_text, "\n"), function(lines) {
    paste0("\\begin{center}", paste(lines, collapse = "\\\\"), "\\end{center}")
  })
  latex2exp::TeX(unlist(processed))
}

# 绘图调用
p_tex_fix <- ggplot(data = df, aes(x, y)) + 
  geom_boxplot() +
  scale_x_discrete(labels = tex_centered) +
  theme(axis.text.x = element_text(hjust = 0.5, lineheight = 1.2))
print(p_tex_fix)

该方法完全兼容原有因子命名规则，会自动处理换行和公式渲染，实现内部文本居中。

方案2：使用ggtext包实现原生级对齐渲染 #

如果需要更稳定的渲染效果，可替换为ggtext包的富文本渲染能力，支持LaTeX公式和普通文本混排，多行文本对齐逻辑和ggplot原生标签完全一致，不会出现内部错位问题：

# 加载包（首次使用需安装）
# install.packages("ggtext")
library(ggtext)

p_ggtext <- ggplot(data = df, aes(x, y)) + 
  geom_boxplot() +
  scale_x_discrete() +
  theme(
    axis.text.x = element_markdown(
      hjust = 0.5, vjust = 1,
      lineheight = 1.2
    )
  )
print(p_ggtext)

简单上标、下标可直接用<sup></sup>、<sub></sub>HTML标记实现，复杂公式直接用$包裹LaTeX语法即可正常解析，对齐效果和原生标签无差异。

内容的提问来源于stack exchange，提问作者Sander van Delden