无法在 R 中绘制平滑样条曲线

Question

我正在尝试在我的数据集上使用平滑样条曲线。我使用 smooth.spline 函数。并想接下来绘制我的适合度。但是，由于某种原因，它不会绘制我的模型。它甚至没有给出任何错误。在运行 smooth.spline 函数后，我只收到一条错误消息，提示“使用非唯一 'x' 值的交叉验证似乎值得怀疑”。但我认为它不应该对实际结果产生太大影响。

我的代码是：

library('splines')


fit_spline <- smooth.spline(data.train$age,data.train$effect,cv = TRUE)


plot(data$effect,data$age,col="grey")
lines(fit_spline,lwd=2,col="purple")



legend("topright",("Smoothing Splines with 5.048163 df selected by CV"),col="purple",lwd=2)

我得到的是：

谁能告诉我我在这里做错了什么？

Answer 1

两个问题：

数字 1。如果您使用smooth.spline(x, y)，请使用plot(x, y) 而不是plot(y, x) 绘制数据。

数字 2。不要传入 data.train 进行拟合，然后传入不同的数据集 data 进行绘图。如果您想查看样条在新数据点上的样子，请先使用predict.smooth.spline。见?predict.smooth.spline。