我试图使用以下代码在散点图中绘制二次回归线:
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)
我得到的结果是:
发布于 2021-02-06 11:22:22
若要不查看“蜘蛛网”,请在将x值放到一行之前对它们进行排序。下面我使用order
获取x-值的顺序,如果您的x和y变量中没有NAs,则应该工作:
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")
https://stackoverflow.com/questions/66063284
复制相似问题