R：如何在多个线框（格子）之间建立良好的交叉点

Question

给出以下R代码：

require(lattice)
x <- c(1:10)
y <- c(1:10)
g <- expand.grid(x = 1:10, y = 1:10, gr = 1:2)
g$z <- c(as.vector(outer(x,y,"*")), rep(50,100))
wireframe(z ~ x * y, data = g, groups = gr)

结果曲面的交点很难看，因为它遵循网格线。

有没有办法让表面之间的交叉看起来更好（除了增加网格的分辨率）？也许通过传递一些参数或使用另一个包进行可视化？

Answer 1

好吧，既然我无法抗拒，那么可以采取一些方法来平滑数据。

包scvm似乎有一些2D模型拟合工具。

此处建议使用fields包：How can I smooth an array in R?

此处审核了DiceKriging个包：https://stats.stackexchange.com/questions/13510/fitting-multivariate-natural-cubic-spline