薄板样条（Tps）和“plot3D” - 创建3D曲面图，添加点并将其“切片”回2D

Question

在阅读了重新设定薄板样条和“字段”包（here，here和here）的帖子后，我有一些跟进问题：

考虑此代码使用光圈数据集

创建薄板样条

data(iris)
library(fields)
library(plot3D)
x <- sep.l <- iris$Sepal.Length
y <- pet.l <- iris$Petal.Length
z <- sep.w <- iris$Sepal.Width
test.spline <- Tps(data.frame(x,y),z)
x2 <- seq(min(x), max(x), len=250)
y2 <- seq(min(y), max(y), len=250)
data <- expand.grid(x=x2, y=y2)
fitted <- matrix(predict(test.spline, data), 250,250)
persp3D(z=fitted, facets = FALSE, contour = TRUE, theta = 70, phi=30, ticktype="detailed", xlab="", ylab="",  zlab="")

上面的代码创建了一个薄板样条，然后将模型拟合到网格上（我希望）。

• 如何控制样条曲线的平滑参数 - 使用lambda还是只控制网格尺寸？
• 如何将实际点添加到网格中？我想看看合体更健壮的地区
• 还有更好的方法吗？我错过了什么吗？
• 有没有办法将生成的3D表面“切片”成2D图形？我想用y的不同值显示2D行为。

谢谢大家的帮助。