如何通过我的数据拟合平滑的曲线？

Question

我有几个数据点需要与曲线“连接”。我想说的是，数据点不单调递增，所以我想通过它们绘制一条明显上下的平滑线。

smooth.spline功能取得了一定的成功。有没有办法让它看起来更“手绘”？而不是在点之间前后摆动？

这是我现在使用的代码：

x <- c(.55, .65, .75, .725, .825, .925)
y <- c(.6, .75, .9, .65, .8, .95)
plot(x, y, xlim=c(.5, 1), ylim=c(.5, 1))
lines( smooth.spline(x, y, spar=.01), col='red' )

Answer 1

您可以使用xspline。

xspline(x,y, shape= -1 )

将绘制穿过具有曲率的点的线，更改形状参数将改变曲线的数量（如果需要，甚至会丢失少量中间点）。

Answer 2

ggplot2

怎么样？

require(ggplot2)
qplot(x,y,geom="smooth")