R语言怎么让拟合的曲线更平滑 Kreg1<- ksmooth(x=t,y=y,kernel="normal",bandwidth=0.05) plot(t,y,pch=1,main="3-Month Treasury Bill Yield") #散点图 lines(Kreg1,lwd=4,col="purple") Kreg2 <- ksmooth(x=t,y=y,kernel="box",bandwidth=0.9) plot(x,y,pch=20) lines(Kreg2,lwd=4,col="orange")

可以通过调整 bandwidth 参数来控制拟合曲线的平滑程度。一般来说，bandwidth 值越小，拟合曲线越平滑；反之，bandwidth 值越大，拟合曲线越不平滑。在你的代码中，你已经尝试过不同的核函数（normal 和 box），可以进一步尝试不同的 bandwidth 参数值，找到最适合的值使得拟合曲线既不过度平滑也不过度波动。可以尝试修改以下代码：

Kreg1 <- ksmooth(x=t, y=y, kernel="normal", bandwidth=0.05)
plot(t, y, pch=1, main="3-Month Treasury Bill Yield")
lines(Kreg1, lwd=4, col="purple")

Kreg2 <- ksmooth(x=t, y=y, kernel="box", bandwidth=0.9)
plot(x, y, pch=20)
lines(Kreg2, lwd=4, col="orange")

其中，bandwidth 参数的值可以根据需要进行调整。