如何将loess.smoothing应用于两种绘图，然后提取点？

Question

我试图将黄土平滑应用于一个散点图(即两个量化变量之间)。我想在散射图中绘制黄土平滑的位置，然后只提取散射图中高于平滑点的数据点。

例如，如果这是我的零散点：

qplot(mpg, cyl, data=mtcars)

我想把更平滑的东西叠加起来：

qplot(mpg, wt, data=mtcars) + with(mtcars, loess.smooth(mpg, wt))

这会导致错误：“不知道如何将o添加到绘图中”。

然后，假设我可以让这种叠加工作，我想只提取超过这条线的汽车。

Answer 1

免责声明:这个答案是不完整的

ggplot2有一个添加黄土平滑器的功能：stat_smooth()，例如。

qplot(mpg, cyl, data=mtcars) + stat_smooth()
# For datasets with n < 1000 default is loess, to hard-code:
qplot(mpg, cyl, data=mtcars) + stat_smooth(method="loess")

函数帮助页还声明它返回一个带有预测的data.frame，您可以使用它来提取点。这就是答案经历了它。不幸的是，它将它划分为典型的80个点，这可能与数据不一致，所以您必须做一些插值才能得到上面/下面的点。

这是两个问题--我建议在将来把它们分开。