使用 Rstudio 在散點圖中繪制二次回歸線

Question

我正在嘗試使用以下代碼在散點圖中 plot 二次回歸線：

• bmi是體重指數， pbfm是“身體脂肪含量百分比”

mod3 <- lm(pbfm ~ bmi + I(bmi^2))

par(mfrow = c(1,1))

plot(bmi, pbfm)

lines(bmi, predict(mod3),col="blue",lwd=0.02)

我得到的結果是：

Answer 1

要看不到“蜘蛛網”，請先對 x 值進行排序，然后再將它們排成一行。 下面我使用order來獲取 x 值的順序，如果您的 x 和 y 變量中沒有 NA，應該可以工作：

set.seed(111)
bmi <- runif(1000,1,50)
pbfm <- 1.5*bmi + 0.05*bmi^2 +rnorm(1000,0,30)

mod3 <- lm(pbfm ~ bmi + I(bmi^2))
plot(bmi, pbfm,cex=0.3)
o <- order(bmi)
lines(bmi[o], predict(mod3)[o],col="blue")