r 플롯 범례에 대한 계수 추출 숫자

Question

나는 값을 수동으로 추출하지 않고 계수 (즉, 기울기)를보고하는 간단한 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) 

Answer 1

paste0("Slope = ", coef(mod)[2])