使用R中的lm（）绘制多项式回归的预测时的杂乱图

Question

我正在R中构建一个带lm的二次模型：

y <- data[[1]]
x <- data[[2]]
x2 <- x^2

quadratic.model = lm(y ~ x + x2)

现在我想在图上显示预测值和实际值。我试过这个：

par(las=1,bty="l")
plot(y~x)
P <- predict(quadratic.model)
lines(x, P)

但这条线路全都出现了问题。也许这与它的二次方有关？谢谢你的帮助。

Answer 1

您需要order()：

P <- predict(quadratic.model)
plot(y~x)
reorder <- order(x)
lines(x[reorder], P[reorder])

我在这里的回答是相关的：Problems displaying LOESS regression line and confidence interval