用R进行3D分级

Question

我有三重点云点（x，y，z）。 我想将它们分开并在每个箱子中平均它们的值。到目前为止，我使用了binning函数，它的工作正常，如我的测试代码所示：

n=1000
x <- rnorm(n)
y <- 0.2*x + 0.5*rnorm(n)
z <- y + 0.5*rnorm(n)
x1 <- cbind(x,y,z)
xb<- binning(x1, nbins=12)
mz1<-apply(xb$table.freq, c(1,2), sum)

dim1 <- ncol(mz1)
dim2 <- length(mz1[,1])
image(1:dim1, 1:dim2, mz1, axes = TRUE, xlab="", ylab="")

然而，我希望得到平均z值而不是频率，而不是频率能够对x，y平均值进行绘图。

可以使用/ extends binning命令完成吗？

谢谢！