Eu tenho um conjunto de dados com alguns pontos e quero encaixar uma linha nele. Eu tentei com oloess função. Infelizmente recebo resultados muito estranhos. Veja o enredo abaixo. Espero uma linha que atravesse mais os pontos e todo o enredo. Como posso conseguir isso?

Como reproduzi-lo:

Faça o download do conjunto de dados dehttps://www.dropbox.com/s/ud32tbptyvjsnp4/data.R?dl=1 (apenas dois kb) e use este código:

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)

Qualquer ajuda é muito apreciada. Obrigado!