r - R中的数学文本

Question

我需要在 R 中的图形上包含一个文本标题。我基本上想包含一个回归系数 (R^2) - 我已经用下面的代码完成了

text(-8, 2,  bquote(R^2 == .(round((summary(fit1)$r.squared),2))))

但现在我想要一些改变。我希望 R^2 为斜体，并添加其他文本信息。

我可以像这样使 R^2 斜体

text(-8, 2,  expression(italic(R^2)))

但是有没有办法使用 bquote() 来做到这一点，这样我也可以包括回归系数？

第二个问题是如何在同一标题中包含其他文本。

例如，我也试过这段代码在 R^2 之前绘制一些文本 - 但这里的数学根本不起作用

text(-9, 2, paste("Linear Regression \n R^2" , round((summary(fit1)$r.squared),2)))

如有任何帮助，我们将不胜感激。

谢谢。

Answer 1

我们可以用italic将它包裹起来

text(-8, 2,  bquote(italic(R^2) == .(round((summary(fit1)$r.squared),2))))

并添加一些字符串

text(-8, 2,  bquote('Linear Regression'~italic(R^2) == .(round((summary(fit1)$r.squared),2))))

---

使用可重现的例子

set.seed(425)
x <- sample(10, 10, replace=TRUE)
y <- sample(20, 10, replace=TRUE)
fit1 <- lm(x~y)
plot(x, y, xlim = c(0,10), ylim = c(0,20))
text(8, 2,  bquote('Linear Regression'~italic(R^2) == .(round((summary(fit1)$r.squared),2))))