添加标记为x的给定值的积

Question

我与样条函数工作，我要绘制的基础，并添加标记显示结的位置。我已经尝试添加使用abline(v=knots)垂直线，但结果不是很好，如果我处理的许多疙瘩是相当分散。我离开你的图像的下方，显示了我想做的事情。这是我的代码，我使用bs功能从包装splines。

library(splines)
x <- seq(0, 1, length.out=1000)  
B <- bs(x, knots=seq(0, 1, length=20)[-c(1, 20)], Boundary.knots=c(0, 1), degree=2) 
matplot(x, B, type="l", lty=1, col="red")

这是我想获得什么（见那些小“X”显示结的位置？）。这只是一个例子，如果你有一些想法表现出这样的结果是无视觉凌乱我会很高兴听到它结的位置。

我真的很感谢所有帮助

Answer 1

首先，从B的属性存储结值。然后用低级别的图形功能points()添加该符号可以通过参数pch调整标记。

knot <- c(0, attr(B, "knots"), 1)
points(knot, rep(0, length(knot)), pch = "x")