r中非多项式样条的B样条

Question

我打算安装一个二维坐标云，它类似于一个不完整的椭圆。当我尝试使用R中“splines”包中的 bs（）函数来获得拟合曲线（用于生成多项式样条曲线的B样条基矩阵）时，它看起来像{{ 3}}

但我的意图是this。

要将参数提供给bs（）并绘制它，我只需按this

mod <- lm(y ~ bs(x, knots = seq(0.1, 0.9, by = 0.1)))
pdat <- data.frame(x = seq(min(x), max(x), length = 100))

## predict for new `x`
pdat <- transform(pdat, yhat = predict(mod, newdata = pdat))

# plotting
plot(y ~ x)
lines(yhat ~ x, data = pdat, lwd = 2, col = "red")

有没有办法达到我的目的？

谢谢！