使用matlines发布绘图数据和线性基础

Question

我正在尝试将线性基绘制为与我的数据点和预测模型相同的图形，但是我无法弄清楚如何使用 R 中的

matlines

和

matplot

函数将两者结合起来。这是我正在使用的代码，

require(faraway)
require(splines)
data(exa, package="faraway")

matplot(bs(exa$x,10,degree=1),type="l",ylab="")
lmod <- lm(y ~ bs(x,10,degree=1),exa)
plot(y ~ x, exa, col=gray(0.75))
lines(predict(lmod) ~ x, exa, lty=2)
matlines(bs(exa$x,10,degree=1),predict(lmod) ,type="l",ylab="")

产生以下两个图，

第一个图是我所期望的，但是第二个图看起来非常扭曲，我无法弄清楚如何让第二个图正确显示。轴似乎有些扭曲，因为我希望将线性基绘制在 x 轴上。我期待第二个情节出现类似的东西，

非常感谢任何帮助。

Answer 1

您可能只是对公式符号感到困惑。在绘图序列中，您总是想要相同的

x=

.

with(exa, plot(x=x, y=y, col=gray(0.75), pch=20))
with(exa, lines(x=x, y=predict(lmod), lty=2))
with(exa, matlines(x=x, y=bs(x, 10, degree=1), type="l", ylab=""))