R termplot：在实际数据点级别绘制样条曲线

在R中，stats:：termplot可用于绘制回归样条曲线项的部分残差。当存在单个预测项时，绘制调整后的部分残差曲线将非常有用，以便y值与实际数据值相对应。例如

library("splines")
a <- c(0:5, 7, 10)
b <- c(0, 2.7, 28.1, 48.3, 37.5, 42.3, 37.4, 32.3)
model1 <- lm(b ~ bs(a))
model1
termplot(model1, partial.resid = TRUE, col.res = 'red', ylim = c(-40, 40))
points(a, b)

库（“样条线”）
A.