r - 如何在 z 方向剪辑线框图？

Question

如何在 z 轴的最大值处剪辑/裁剪线框图？例如：

library(lattice)
xy = expand.grid(x=1:5, y=1:5)
z = xy$x * xy$y
plot(wireframe(z ~ xy$x * xy$y, zlim=c(0,7), xlab="x", ylab="y", zlab="x*y",
  scales=list(x=list(arrows=FALSE),y=list(arrows=FALSE),
              z=list(arrows=FALSE,tick.number=5))))

zlim[2] == 7，所以我希望绘图在 z 轴上被剪裁为 7。但这是绘制的：

似乎所有连接到 zlim 下方的点的网格点都被绘制出来，而 zlim 上方的所有其他网格点都被丢弃了。

我希望情节在它们穿过 zlim 的点处裁剪所有边缘，即，像这样：

任何建议都非常感谢。

谢谢，

约翰

标签： rplotclippingwireframe