r - 在 R 中用 LOESS 拟合一条线

Question

我有一个数据集，其中包含一些点，并且想要在其上拟合一条线。我用loess函数尝试过。不幸的是我得到了非常奇怪的结果。请参阅下面的情节。我期望一条线能够更多地穿过这些点并贯穿整个情节。我怎样才能做到这一点？

如何重现它:

从https://www.dropbox.com/s/ud32tbptyvjsnp4/data.R?dl=1下载数据集(只有 2 kb)并使用此代码:

load(url('https://www.dropbox.com/s/ud32tbptyvjsnp4/data.R?dl=1'))
lw1 = loess(y ~ x,data=data)
plot(y ~ x, data=data,pch=19,cex=0.1)
lines(data$y,lw1$fitted,col="blue",lwd=3)

非常感谢任何帮助。谢谢!

Answer 1

您已针对 y 而不是针对 x 绘制了拟合值。此外，在绘制线条之前，您需要对 x 值进行排序。试试这个:

lw1 <- loess(y ~ x,data=data)
plot(y ~ x, data=data,pch=19,cex=0.1)
j <- order(data$x)
lines(data$x[j],lw1$fitted[j],col="red",lwd=3)