r - オブジェクトへの呼び出しの結果を数式に含める方法は?

Question

expression()プロットにテキストを追加する機能を使用するのに苦労しています。具体的には、式内のオブジェクトへの呼び出しの結果を使用できませんでした。次に例を示します。

例

set.seed(1)
x <- 1:100
y <- 2*x + 3 + rnorm(length(x), sd=10)

fit <- lm(y~x)
plot(y~x)
abline(fit)
text(50,200, labels=expression(paste(alpha, "=", round(fit$coeff[1],3), "; ", beta, "=", round(fit$coeff[2],3), "; ", R^2, "=", round(summary(fit)$r.squared,2))))

図の赤字で書いたようなテキストにしたいです。どんな助けでも大歓迎です。

Answer 1

試して?bquote、

text(50,200, label=bquote(alpha == .(fit$coeff[1]) ~ "; "~ beta == .(fit$coeff[2])~"; "~R^2 ==  .(summary(fit)$r.squared)))