ggplot图例标题：上标格式错乱问题排查与解决

这个问题我之前也碰到过！默认情况下，ggplot处理带换行和上标的文本时，会把上标当成独立元素推到行尾，尤其是当第一行有长单词触发自动换行的时候。下面给你两种靠谱的解决方法，都能保留换行且让上标乖乖待在目标文字后面：

方法1：用原生expression()精确控制 #

ggplot支持用表达式来渲染数学符号和上标，结合\n手动换行，就能让上标和前面的文本绑定在一起，不会乱跑。

示例代码：

library("ggplot2")
x <- seq(1,10,1)
y <- sin(x)
z <- c("1", "1", "2", "2", "2", "1", "2", "3", "3", "3")
df <- data.frame(x,y,z)

p <- ggplot(df, aes(x = x, y = y, color = z)) +
  geom_point() +
  # 用expression把换行和上标结合，上标直接跟在目标文本后
  guides(color = guide_legend(title = expression("Long Example Word\nText"^2)))
p

这里的"Text"^2会让上标2紧紧跟着"Text"，不会因为第一行长单词的换行被挤到行尾。

方法2：用ggtext包的Markdown格式（更灵活） #

如果你的标题需要更复杂的格式（比如不同颜色、字体），ggtext包支持直接用Markdown语法渲染图例标题，换行用<br>，上标用<sup>标签，完全自定义位置。

步骤：

1. 先安装并加载ggtext包
2. 用<br>手动换行，<sup>标记上标
3. 在theme里把legend.title设为element_markdown()

示例代码：

library("ggplot2")
library("ggtext") # 需要先安装：install.packages("ggtext")

x <- seq(1,10,1)
y <- sin(x)
z <- c("1", "1", "2", "2", "2", "1", "2", "3", "3", "3")
df <- data.frame(x,y,z)

p <- ggplot(df, aes(x = x, y = y, color = z)) +
  geom_point() +
  # 用Markdown语法写标题：<br>换行，<sup>做上标
  labs(color = "Long Example Word<br>Text<sup>2</sup>") +
  # 开启Markdown渲染，还能调整行高
  theme(legend.title = element_markdown(lineheight = 1.2))
p

这种方法的优势是格式自由度极高，不管你的标题多复杂，都能精准控制每一部分的位置和样式。

为什么之前修改行高没用？ #

因为默认的element_text()是把整个标题当成普通文本块渲染，上标只是文本的"装饰"，自动换行时不会考虑上标和前置文本的绑定关系。而上面两种方法都是让上标成为文本结构的一部分，自然就不会错位了。

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