r - R散点图3d

Question

我有两个问题。

1. 我的数据集由四列数据组成——x、y、z、函数，比如说 lambda。我正在尝试绘制 z 的每个唯一值的数据密度。例如，我有 1000 个数据点，其中有 10 个唯一的 z。这意味着我将有一个具有 10 种颜色光谱的立方体。我该怎么做？

到目前为止，我有：

colorSet <- tim.colors(10)
z <- unique(data.set[,3])
something <- ??? Not sure if something should be done about this
scatterplot3d(data.set[,1], data.set[,2], data.set[,3], color=colorSet[something], pch=19)

1. 如果我想在散点图中添加第三个平面，该怎么做？

到目前为止（在伪代码中）我有：

p1 <- scatterplot3d(etc)
col2 <- color for p2
p2$points3d(etc)

我不确定如何使用 xyz.convert 和 plane3d，因为我在网上阅读/搜索的内容似乎对我不起作用。:(

希望有人能帮忙！谢谢！

Answer 1

由于 data.set[,3] 只有 10 个唯一值，我相信您可以简单地为 z 值设置一个“查找表”。

zu<-unique(data.set[,3])
zindex <- unlist(sapply(1:nrow(data.set), function(j) which(zu==data.set[j,3]))
scattterplot3D(data.set[,1],data.set[,2],data.set[,3],color=colorSet[zindex])

我还没有测试过，所以我可能弄脏了一些索引。