提取r绘图图例的系数数值

提取r绘图图例的系数数值,r,plot,legend,R,Plot,Legend,我试图在一个简单的R图中获得图例,以报告系数(即斜率),而无需手动提取值。有人知道如何对图例进行编码,使其显示值而不是命令吗?谢谢 y <- rnorm(100) x <- sample(rnorm(100), 100, replace = TRUE) plot(x, y) mod <- lm(y ~x) abline(lm(y~x)) legend("topleft", "Slope = coef(mod)[2]", col = "black", pch = 15, cex

我试图在一个简单的R图中获得图例,以报告系数(即斜率),而无需手动提取值。有人知道如何对图例进行编码,使其显示值而不是命令吗?谢谢

y <- rnorm(100)
x <- sample(rnorm(100), 100, replace = TRUE)
plot(x, y)
mod <- lm(y ~x)
abline(lm(y~x))
legend("topleft", "Slope = coef(mod)[2]", col = "black", pch = 15, cex = .8)
y
paste0("Slope = ", coef(mod)[2])