ggplot2轴文本标签：下标+上标+方括号

Question

我试图在 Ggplot2 y 轴中使用下标+上标+方括号。但是当我使用下面的代码时，它显示错误。

labs(y = parse(text = "S[in] ~~ group('[', W * ~~ m^-2, ']')"))

错误是：

Error in parse(text = "S[in] ~~ group('[', W * ~~ m^-2, ']')") : 
  <text>:1:3: unexpected 'in'
1: S[in
      ^

我需要一个标签：Sin [W m-2]，其中 in 是下标，-2 是上标。

有人可以帮忙解决这个问题吗？

Answer 1

你可以使用expression：

library(ggplot2)
ggplot(mtcars, aes(hp, mpg)) +
        geom_point() +
        labs(y = expression("S"["in"] ~ "[W" ~ m^-2~"]"))