我们可以使用bquote

library(ggplot2)
ggplot(mtcars, aes(hp, mpg)) + 
       geom_point() +
       labs(x = bquote('x axis'~(Å^2)), y = "y axis") +
       #or
       #labs(x = bquote('x axis'~(ring(A)^2)), y = "y axis") 
       theme_bw()

您应该使用表达式，最好结合粘贴，如下所示：

ggplot(mtcars, aes(hp, mpg)) + geom_point() + labs(x = expression(paste("x axis ", ring(A)^2)), y = "y axis")

另一个选择是使用ggtext包，它允许对标签使用markdown，我发现这更容易写和读。

library(ggtext)
library(ggplot2)
ggplot(mtcars, aes(hp, mpg)) +
  labs(x = "x axis (Å^(2))", y = "y axis") +
  ## use markdown theme for simple superscripts
  theme(axis.title.x = element_markdown())

由reprex package（v2.0.1）于2022年7月14日创建

您可以简单地用途：

ggplot(mtcars, aes(hp, mpg)) +  geom_point() +  labs(x = x~axis~ring(A)^2, y = "y axis")