有没有办法访问数学符号进行绘图？

Question

我有一个回归图，我想把R ^ 2值放在我的情节上。有没有办法访问R中的数学符号？

Answer 1

请参阅帮助页?plotmath

plot(1:10, 1:10, type = "l")
text(4, 9, expression(R^2 == 1))

Answer 2

这是一个简单的例子，您可以根据自己的需要进行定制。

x <- rnorm(50)
y <- 0.5 + 2 * x + rnorm(50)
model <- lm(y ~ x)
rsquared <- format(summary(model)$r.squared, digits = 3)
label <- substitute(expression(R^2 == VALUE), list(VALUE = rsquared))
png("rsquared.png")
plot(x, y)
abline(a = model$coefficients[1], b = model$coefficients[2])
legend('topleft', legend = eval(label))