首页
学习
活动
专区
工具
TVP
发布
社区首页 >问答首页 >在R中使用LOESS拟合直线

在R中使用LOESS拟合直线
EN

Stack Overflow用户
提问于 2013-03-11 17:39:51
回答 2查看 57.5K关注 0票数 23

我有一个数据集,里面有一些点,我想要在上面拟合一条线。我用loess函数尝试了一下。不幸的是,我得到了非常奇怪的结果。请看下面的图。我希望有一条线能更多地穿过这些点,覆盖整个情节。我怎样才能做到这一点呢?

如何重现:

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

代码语言:javascript
复制
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)

任何帮助都是非常感谢的。谢谢!

EN

回答 2

Stack Overflow用户

回答已采纳

发布于 2013-03-11 18:00:37

您已经根据y而不是x绘制了拟合值。此外,在绘制直线之前,您还需要对x值进行排序。试试这个:

代码语言:javascript
复制
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)

票数 64
EN

Stack Overflow用户

发布于 2017-04-27 04:04:18

不幸的是,数据不再可用,但如何拟合非参数线(局部加权散点图平滑或如果需要,只拟合黄土)的一种更简单的方法是使用以下代码:

代码语言:javascript
复制
scatter.smooth(y ~ x, span = 2/3, degree = 2)

请注意,您可以使用参数spandegree来获得任意平滑度。

票数 3
EN
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接:

https://stackoverflow.com/questions/15337777

复制
相关文章

相似问题

领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档