r - R中的数学文字

我需要在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)))

任何帮助，将不胜感激。

谢谢。

最佳答案

我们可以用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))))