上标到sprintf

Question

我想在sprintf＆＃39;中引入上标。我尝试了不同的选择，但我坚持这一点。任何帮助非常感谢！

输入：

sprintf("r = %s & %s = %s%%", fit1.r, "r"[2], fit1.r2pp)

输出：

## [1] "r = 0.95 & NA = 90%"

• 我喜欢＆＃39; NA＆＃39;被提升到2（r ^ 2）

Answer 1

如果是plot

fit1.r <- 0.95
fit1.r2pp <- 90
plot(1,1, main=bquote('r =' ~.(fit1.r)~'& r'^2~'='~.(fit1.r2pp)*'%'))