如何在数学表达式中包含对象调用的结果？

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)))