如何在 R 中将平滑曲线拟合到我的数据？

我正在尝试画一条平滑的曲线R。我有以下简单的玩具数据：

> x
 [1]  1  2  3  4  5  6  7  8  9 10
> y
 [1]  2  4  6  8  7 12 14 16 18 20

现在，当我用标准命令绘制它时，它看起来凹凸不平且前卫，当然：

> plot(x,y, type='l', lwd=2, col='red')

如何使曲线平滑，以便使用估计值将 3 个边缘圆化？我知道有很多方法可以拟合平滑曲线，但我不确定哪种方法最适合这种类型的曲线以及如何编写它R.

I like loess()很多用于平滑：

x <- 1:10
y <- c(2,4,6,8,7,12,14,16,18,20)
lo <- loess(y~x)
plot(x,y)
lines(predict(lo), col='red', lwd=2)

Venables 和 Ripley 的 MASS 书中有一整个章节是关于平滑的，其中也涵盖了样条曲线和多项式——但是loess()几乎是每个人的最爱。