ggplot annotation - 貼り付ける上付き文字

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)