r - 在R中向散点图添加曲线

我的可复制数据如下：

x <- c(7232L, 6274L, 8163L, 7421L, 6362L, 7206L, 7600L, 7421L, 9381L,
       8173L, 7473L, 6318L, 5360L, 4732L, 7249L, 6435L, 5556L, 6256L,
       6543L, 6113L, 8288L, 7438L, 6272L)
y <- c(1.649, -0.27, 0.149, 0.504, -0.634, 1.067, -1.243, 0.539, -2.399,
       0.281, 0.217, 0.371, -0.937, -2.238, -0.71, 0.295, -0.289, -0.271,
       0.944, 0.724, -0.149, 0.204, 1.932)

绘制此：

plot(y,x)

给出一个简单的散点图：



如何为上面的散点图添加最合适的曲线？我在使用loess函数时碰到了很多东西，但这似乎没有用。

我是R的新手，现在已经搜索了两个小时。任何帮助将不胜感激。

谢谢

最佳答案

使用x和y如问题和loess那样切换

dat <- dat[order(dat$y),]

fit <- loess(x ~ y, data = dat)
plot(dat$y, dat$x)
lines(dat$y, predict(fit, dat))

关于r - 在R中向散点图添加曲线，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/21805183/