r - 生成用于 3d 绘图的点网格的好方法

Question

我经常想使用 R 来绘制 3d 图，例如如下。

X=seq(-3,3,0.05)
y=c(); for(i in X) { y=c(y,rep(i,length(X))) }
x=rep(X,length(X))
z=pmin(x,y)
library(lattice)
wireframe(z~x*y, shade=TRUE, scales=list(arrows=FALSE))

这生成的情节就好了



但是有没有更自然/更有效的方式来生成 x和 y向量？我想要一个像“产品”运算符这样的东西，它给了我所有可能的对。

Answer 1

这是使用 expand.grid 的简单方法。和 outer :

library(lattice)

x <- seq(-3,3,by=0.05)
y <- seq(-3,3,by=0.05)

grid <- expand.grid(x=x, y=y)

dim(grid)
[1] 14641     2

grid$z = with(grid, pmin(x,y))

wireframe(z ~ x*y, data=grid, shade=TRUE, main="X=Y",
scales=list(arrows=FALSE))

contourplot(z ~ x*y, data=grid, cuts=10, aspect = "iso")