ggplot多行标签中上标负号的Unicode显示问题求助

问题背景 #

之前通过expression()解决了ggplot多行标签（第二行含指数）的间距问题，示例代码如下：

library(ggplot2)
library(magrittr)

iris %>% 
  ggplot(aes(x = Sepal.Length, y = Sepal.Length)) +
  geom_point() +
  labs(x = expression(paste('This is the first line of the x label\n', x^-1, ')')))

但尝试用Unicode实现上标负号时遇到两个问题：

• 使用\U2212\u00b9得到的是普通减号，而非上标负号
• 使用\u207B时，在RStudio中显示为方框

解决方案 #

方案1：优化expression写法（推荐，无需额外字体/包）

用atop()替代paste()，更优雅地控制多行标签的排版，同时保留原生的上标语法：

library(ggplot2)
library(magrittr)

iris %>% 
  ggplot(aes(x = Sepal.Length, y = Sepal.Length)) +
  geom_point() +
  labs(x = expression(atop("This is the first line of the x label", "(x"^-1*")")))

atop()会自动调整两行标签的间距，比手动加\n更美观。

方案2：Unicode配合支持的字体

\u207B是Unicode标准的上标负号，但部分默认字体（如RStudio自带的Courier）不支持该字符。只需更换为支持Unicode上标的字体即可：

library(ggplot2)
library(magrittr)

iris %>% 
  ggplot(aes(x = Sepal.Length, y = Sepal.Length)) +
  geom_point() +
  labs(x = 'This is the first line of the x label\n(x\u207B\u00B9)') +
  theme(text = element_text(family = "Segoe UI Symbol"))

注：可根据系统替换字体，比如MacOS用"SF Pro Text"，Linux用"Noto Sans"

方案3：用ggtext实现markdown语法排版

借助ggtext包的markdown解析功能，用<sup>标签轻松实现上标，无需纠结Unicode或expression语法：

library(ggplot2)
library(magrittr)
library(ggtext)

iris %>% 
  ggplot(aes(x = Sepal.Length, y = Sepal.Length)) +
  geom_point() +
  labs(x = 'This is the first line of the x label<br>(x<sup>-1</sup>)') +
  theme(axis.title.x = element_markdown())

这种方法支持更复杂的文本格式（如加粗、颜色），排版自由度更高。

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