R：如何在多个线框（晶格）之间具有良好的交点

给定以下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)

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

---

除了增加栅格的分辨率外，还有没有其他方法可以使曲面之间的交点看起来更好？可能通过传递一些参数或使用另一个包进行可视化？

好吧，因为我忍不住要偷懒，这里有一些方法可以平滑数据

软件包scvm似乎有一些二维模型拟合工具

此处建议使用fields软件包：

---

DiceKriging包在这里进行了审查：

丑陋是主观的。：-。但是，是的，你必须提高分辨率，除非有人知道在绘制三维网格之前应用样条线的软件包。