我的可复制数据如下:
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))
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句