在r中的散點圖中添加中間“最佳擬合線”

Question

我想在散點圖中添加最佳擬合的經驗線，該散點圖基於x的范圍的中值y，例如在x = 0.105時，x的中值y的y線在0.100到0.110的范圍內，在x = 0.115時，x的中值y的y線在0.110到0.120的范圍內等。這些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)

這是橙色中線的模擬。

Answer 1

我會將lowess平滑視為選項。 查看關於你希望它如何“平滑”的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)

Answer 2

在plot()函數之后，嘗試以下操作：

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

來自?lowess ：

lowess返回一個包含組件x和y的列表，它們給出了平滑的坐標。 可以使用功能lines()將平滑添加到原始點的圖中。