提取情節公式矢量

Question

我有data.frame這樣的：

V1 V2 -251 1426 -250 1466 -249 1546 -248 1482 -247 1509 -246 1475 我建立像線性模型：

fit=lm(x1$V2~x1$V1) 

然後我畫出這條線

lines(x1$V1,fitted(fit),col="red") 

所以，問題是： 有沒有什麼辦法可以將繪製的線條作爲data.frame或公式f（x）= ax + b？提前致謝！ PS只是好奇。

Answer 1

您可以使用

data.frame(x=x1$V1,y=fitted(fit)) 

如果你想要得到的公式，你可以使用

b=lm$coefficients[1] 
a=lm$coefficients[2] 
cat("y=",b,"+x*",a)