Quiero agregar una línea ajustada de un ajuste cuadrático a un diagrama de dispersión, pero el orden de los puntos está de alguna manera desordenado.

attach(mtcars)
plot(hp, mpg)
fit <- lm(mpg ~ hp + I(hp^2))
summary(fit)
res <- data.frame(cbind(mpg, fitted(fit), hp))
with(res, plot(hp, mpg))
with(res, lines(hp, V2))

Esto dibuja líneas por todo el lugar, en oposición al ajuste de smooh a través del diagrama de dispersión. Estoy seguro de que esto es bastante sencillo, pero estoy un poco perplejo.