黄土拟合问题

Loess Fitting Issue

您好,我是 R 的新手,通常使用 matlab 或 c#,但目前需要执行一些平滑曲线拟合,并进行一些残差分析,所以我转向 R。我知道有很多问题问了关于 loess 和 lowess 拟合的话题,但这个问题不是我经常看到的典型 "your data is out of order" 问题。

我正在使用的一些样本数据可以在下面的图中看到

最后我想用的方法是loess,不过我也试过lowess和scatter.smooth。我的问题是,当我将数据绘制为 x1,y1 时,我似乎无法使用这些方法,但当我绘制 y1,x1 时,它们似乎工作正常。我想我在这里完全一无所知,但这对我来说似乎很奇怪。

ord <- order(x)
x1 <- x[ord]
y1 <- y[ord]
plot(x1,y1)
fm = loess(y1~x1) 
lines(x1, predict(fm))

ord <- order(y)
x1 <- x[ord]
y1 <- y[ord]
plot(y1,x1)
fm = loess(x1~y1)
lines(y1, predict(fm))

上面的图表明,对于 x1,y1 图,拟合切入了数据,显然方向不正确,但如果翻转和旋转数据,其形状对数据有意义。对于 y1,x1 图,使用相同的步骤,但只是在所有行中切换使用 x1 和 y1,拟合效果很好。我觉得这个问题其实很简单,只是我在画一个空白。这里的任何 help/explanation 将不胜感激,因为我希望能够以预期的 x1、y1 方向绘制数据。

在数学中,"function" 的含义之一是一种关系,其中两个变量之间的关系中的每个 x 值只有一个 y 值。 loess 试图创建一个具有这种含义的函数。您的数据将支持从左侧高处开始、向右弯曲并向左扫回的曲线。那将是 1-2 关系,因为许多 x 值将具有 2 个 y 值。从数学上讲,这将失去具有 "true" 函数的许多理想特征。您证明了这种关系可以 "functional" 与您的逆向显示和黄土拟合。可以采用第二次拟合和 "invert",这将使曲线旋转 90 度)。

您没有提供支持编码演示的数据,但如果您补救了这个遗漏,就可以提供这样的演示。