如何在ggplot2图例中创建上标表达式？求排查失效原因

在ggplot2中，直接沿用base绘图的expression(paste)换行方式无法正确解析，需要针对ggplot的文本渲染逻辑调整方法，以下是两种可行方案：

方法1：使用原生expression结合atop #

atop()函数可以在表达式中实现两行文本的上下排列，同时保留上标语法：

library(ggplot2)

ggplot(mtcars, aes(wt, mpg, color = factor(cyl))) +
  geom_point() +
  labs(color = expression(atop("Mean driving speed", "(km h"^"-1"*")")))

• atop()的两个参数分别对应两行文本
• h^"-1"实现上标效果，*用于连接表达式中的文本片段

方法2：使用ggtext包支持Markdown语法 #

如果觉得表达式语法繁琐，可以用ggtext包直接写Markdown格式的文本，更直观：

library(ggplot2)
library(ggtext)

ggplot(mtcars, aes(wt, mpg, color = factor(cyl))) +
  geom_point() +
  labs(color = "Mean driving speed<br>(km h<sup>-1</sup>)") +
  theme(legend.title = element_markdown())

• <br>实现换行，<sup>-1</sup>实现上标
• 必须通过element_markdown()告诉ggplot解析Markdown格式

为什么原方法失效？ #

base绘图中expression(paste)里的换行（回车或\n）在ggplot的文本渲染系统中不被识别，ggplot需要用atop()（原生表达式）或Markdown标签（借助ggtext）来明确指定换行逻辑，同时上标语法的解析规则也与base绘图略有差异。

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