在 R 中使用 bquote 上标后的下标

Question

我正在尝试绘制一个特定的 R 平方指标，即相对于 1:1 线的 R2。 下面是一些生成数据和绘图的代码。 （我意识到我只是在这里计算标准 r 平方，但这对于计算代码来说很好）。

#generate data.
set.seed(1234)
x <- rnorm(100)
y <- x*0.7 + rnorm(100)
mod <- lm(y~x)

#develop rsq label.
rsq <- round(summary(mod)$r.squared, 2)
rsq.1.lab <- bquote(R^2 [1:1] == .(rsq))

#drop plot and rsq label.
plot(y ~ x)
mtext(rsq.1.lab, side = 3, line = -2, adj = 0.05)

情节是这样的：

这非常接近，但下标实际上是相对于上标的，而不是相对于字母 R。我该如何更改？ 寻找使用基础 R 的解决方案，最好保留bquote() 。

Answer 1

使用{ / }分组：

rsq.1.lab <- bquote({R^2} [1:1] == .(rsq))

或者

rsq.1.lab <- bquote({R [1:1]}^2 == .(rsq))

甚至有点可笑

rsq.1.lab <- bquote(R * atop(2, "1:1") == .(rsq))

虽然我们可以使用

rsq.1.lab <- bquote(R * scriptstyle(atop(2, "1:1")) == .(rsq))

?plotmath建议/记录了其中的大部分?plotmath 。