我有一系列时间和温度值的数据。我想生成趋势线并找到后续的等式。这可以在excel中完成。但是,我怎么能在R中找到趋势线的方程式。
abline函数可用于生成趋势线,但底层方程在哪里?我看到了一个链接,他们使用以下代码来说明问题
x <- sample(1:100, 100, replace = TRUE)
y <- x + rnorm(100, sd = 4)
mydf <- data.frame(x = x, y = y)
plot(y ~ x, data = mydf)
model <- lm(y ~ x, data = mydf)
abline(model, col = "red")
summary(model)
如果你执行它,可以对结果有所了解并看到等式,请告诉我。否则帮助我用R
得到趋势线的等式谢谢!
答案 0 :(得分:9)
但基本等式在哪里?
在“系数”中:
> coef(model)
(Intercept) x
1.2093273 0.9786051
其中“(截距)”是y轴截距,“x”是斜率。换句话说,您可以检索如下公式:
paste('y =', coef(model)[[2]], '* x', '+', coef(model)[[1]])