在R中使用LOESS拟合直线
在R中使用LOESS拟合直线
提问于 2013-03-11 17:39:51
我有一个数据集，里面有一些点，我想要在上面拟合一条线。我用loess函数尝试了一下。不幸的是，我得到了非常奇怪的结果。请看下面的图。我希望有一条线能更多地穿过这些点，覆盖整个情节。我怎样才能做到这一点呢？
如何重现：
从https://www.dropbox.com/s/ud32tbptyvjsnp4/data.R?dl=1下载数据集(仅2kb)，并使用以下代码：
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)任何帮助都是非常感谢的。谢谢!
回答 2
Stack Overflow用户
回答已采纳
发布于 2013-03-11 18:00:37
您已经根据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)
Stack Overflow用户
发布于 2017-04-27 04:04:18
不幸的是，数据不再可用，但如何拟合非参数线(局部加权散点图平滑或如果需要，只拟合黄土)的一种更简单的方法是使用以下代码：
scatter.smooth(y ~ x, span = 2/3, degree = 2)请注意，您可以使用参数span和degree来获得任意平滑度。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/15337777
复制相关文章
相似问题
腾讯云开发者
