R可视化大盒子内的许多3D盒子

Question

我需要以某种方式使3D盒子的交互式可视化包含许多3D盒子。

我的第一个粗略的想法如下。在2D中我可以使用

x<-matrix(runif(25),nrow=5,ncol=5);
image(x)

为矩阵中的每个单元格着色，使其看起来像大矩形中包含小矩形。

怎么能把它翻译成3D？让我们在3D中说大盒子大小为10x10x10。在实践中，我想选择框中1000个元素中每一个元素的颜色。我知道rgl可用于制作交互式3D图，但我在理解如何为每个元素着色时遇到问题。 3D阵列。

如果您对某些更好的解决方案有一些建议，我很乐意听听。

Answer 1

如果我理解正确，我相信这应该有效：

library(rgl)
grd <- expand.grid(x=seq(0,10,2), y=seq(0,10,2), z=seq(0,10,2))
grd$dist <- sqrt(grd$x^2 + grd$y^2 + grd$z^2) # distance to coordinate 0,0,0
grd$col <- rainbow(ceiling(max(grd$dist+1)))[ceiling(grd$dist+1)]
grd$alpha <- rep(c(0.2, 1), each=nrow(grd)/2)
open3d()
for(i in seq(nrow(grd))){
  shade3d( translate3d( cube3d(col = grd$col[i]), grd$x[i], grd$y[i], grd$z[i]) , alpha=grd$alpha[i])
}
rgl.snapshot("cube.png")

此示例适用于6x6x6立方体，颜色基于其中心与origen的欧几里德距离。希望这会向您展示根据自己的喜好调整颜色的方法。