r - 将线/方程添加到散点图

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.

我尽量避免 attach()。随着您进行更多的回归工作，它会产生各种异常情况。更好的是：

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')