ggplot注释 - 带上标的上标

Question

我已经阅读了注释（表达式，bquote等）中ggplot上标的所有顶级帖子，但没有人做过这个伎俩。感谢您的帮助。

df <- data.frame(x =  rnorm(10), y = rnorm(10))
var1<-"SR"
var2<-10
mylabel<-paste(var1," at ", var2, "m^2 scale")

ggplot(df, aes(x = x, y = y)) + geom_point() +
  annotate("text", x = mean(df$x), y = mean(df$y),label = "test", parse=T)

Answer 1

表达式中不能有空格

mylabel <- sprintf("%s~at~%s~m^2~scale", var1, var2)