添加直线/方程以散点图

Question

我有3个模型，所有这些模型都很重要，我想用我的数据创建一个线性图。这是我到目前为止有：

>morpho<-read.table("C:\\Users\\Jess\\Dropbox\\Monochamus\\Morphometrics.csv",header=T,sep=",") 
> attach(morpho) 
> wtpro<-lm(weight~pronotum) 
> plot(weight,pronotum) 
> abline(wtpro) 

我试图进入abline为：

abline(lm(weight~pronotum)) 

我想不出什么我做错了。我想补充一下我的等式，我拥有我所有的系数，但无法超越界限......我甚至开始思考，也许我一路搞乱了，但它仍然行不通。是否有我失踪的单独包裹？

Answer 1

尝试：

abline(coef(lm(weight~pronotum)) # works if dataframe is attached. 

我会尽量避免附加（）。随着你做更多的回归工作，它会产生各种各样的异常现象。更好的是：

wtpro<-lm(weight~pronotum, data= morpho) 
with(morpho , plot(weight,pronotum)) 
abline(coef(wtpro)) 

Answer 2

绘图的格式为plot（x，y，...），看起来您已经先订购了您的因变量。容易犯错。

例如：

设置一些数据

y <- rnorm(10) 
x <- rnorm(10) + 5 

与放置在x轴将不显示回归线，因为它是可见平面的外部相关变量的曲线图。

plot(y,x) 
abline(lm(y~x), col='red', main='Check the axis labels') 

翻转plot命令中的变量。现在它将可见。

plot(x,y) 
abline(lm(y~x), col='red', main='Check the axis labels')