将线/方程添加到散点图

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(lm(weight~pronotum))

我不知道我在做什么错。 我想添加我的方程式，我拥有所有系数，但无法超越极限……我什至开始思考也许我一路搞砸了，但仍然无法正常工作。 我是否缺少单独的包裹？

Answer 1

尝试：

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

我尝试避免attach（）。 随着创建更多回归工作，它会创建各种异常现象，这些异常现象会增加。 更好的是：

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

Answer 2

Plot格式为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')