將線/方程添加到散點圖

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