普通作图¶ 光滑曲线¶ 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) 参考How to fit a smooth curve to my data in R?