使用 Rstudio 在散点图中绘制二次回归线

Question

我正在尝试使用以下代码在散点图中绘制二次回归线：

bmi 是 body 质量指数，pbfm 是“百分比 body 脂肪含量”

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

使用 Rstudio 在散点图中绘制二次回归线

Plotting quadratic regression line in scatterplot using Rstudio

plot

regression

r