Ich möchte einer Scatteprlot eine angepasste Linie mit quadratischer Anpassung hinzufügen, aber die Reihenfolge der Punkte ist irgendwie durcheinander.

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

Dies zeichnet überall Linien, im Gegensatz zum Smooh-Fit im Streudiagramm. Ich bin mir sicher, dass das ziemlich einfach ist, aber ich bin ein bisschen ratlos.