将中值“最佳拟合线”添加到 r 中的散点图答案

【问题标题】：Add a median "best fit line" to a scatter plot in r将中值“最佳拟合线”添加到 r 中的散点图
【发布时间】：2018-02-28 18:06:46
【问题描述】：

我想在散点图中添加一条最适合的经验线，该散点图基于 x 范围内的中值 y，例如，在 x=0.105 处，将是该范围内 x 的中值 y 的 y 线0.100 到 0.110，在 x=0.115 将是 x 在 0.110 到 0.120 等范围内的中值 y 的 y 线。这些 y 线点将被连接起来。这些 x 仅用于说明，我希望他们的选择灵活。（我不想要参数拟合，谢谢）

这模拟了一些数据：

x<-0.1+runif(n=1000,min=0,max=1)
y<-1/x+runif(n=1000,min=0,max=1)*(1-x)*5
plot(x,y)

这是橙色中线的模型。

【问题讨论】：

标签： r curve-fitting scatter-plot

【解决方案1】：

我会考虑使用最低平滑作为选项。查看 f 选项，了解您希望它有多“平滑”。我在下面复制了一些文档。

选项 f 更平滑的跨度。这给出了点的比例影响每个值的平滑度的图。较大的值给出更流畅。

x<-0.1+runif(n=1000,min=0,max=1)
    y<-1/x+runif(n=1000,min=0,max=1)*(1-x)*5    
    plot(x, y)
    lines(lowess(x, y), col=2)
    lines(lowess(x, y, f=.2), col=3)

【讨论】：

【解决方案2】：

在您的plot() 函数之后，尝试以下操作：

lines( x = lowess( x = x, y = y ), col = "darkgoldenrod2", lwd = 4 )

来自?lowess：

lowess 返回一个包含组件 x 和 y 的列表，它们给出了平滑的坐标。可以使用函数lines() 将平滑添加到原始点的图中。

【讨论】：