ggplot2中含数学表达式的多行图例标题对齐问题

问题根源说明 #

你之前尝试的legend.title.align和title.hjust参数，控制的是整个图例标题块相对于图例内容的对齐，无法作用于plotmath表达式内部的多行文本，因此调整无效。

方案1：实现两行居中对齐（使用plotmath原生atop()函数） #

plotmath提供的atop()函数专门用于将两个表达式上下堆叠且自动居中，无需手动插入换行符，直接修改图例标题构造代码即可：

library(ggplot2)

# 原有绘图代码
df <- data.frame(x = 1:3, y = 1:3, z = 1:3)
gg <- ggplot(df, aes(x, y, colour = z)) + geom_point() 

# 改用atop构造两行居中的图例标题
legend_title <- bquote(atop("Prediction", E(μ ~ "|" ~ bold(Z) ~ "," ~ bold(θ))))
gg <- gg + labs(colour = legend_title) 
gg

运行后第一行的"Prediction"会自动在第二行公式的正上方居中。

方案2：实现两行左对齐（使用ggtext包的markdown渲染） #

如果需要两行左对齐，可以借助ggtext包的markdown/LaTeX公式渲染能力，对齐控制更灵活：

# 未安装ggtext先运行：install.packages("ggtext")
library(ggplot2)
library(ggtext)

# 原有绘图代码
df <- data.frame(x = 1:3, y = 1:3, z = 1:3)
gg <- ggplot(df, aes(x, y, colour = z)) + geom_point() 

# 用markdown语法写带换行的标题，公式用LaTeX语法
legend_title <- "Prediction<br>$E(\\mu | \\boldsymbol{Z}, \\boldsymbol{\\theta})$"
gg <- gg + 
  labs(colour = legend_title) +
  # 用element_markdown渲染图例标题，hjust=0设置左对齐
  theme(legend.title = element_markdown(hjust = 0))
gg

内容的提问来源于stack exchange，提问作者MattSainsbury-Dale