使用 plot3D 库中的 scatter3D() 函数标记点和定义组颜色

Question

我是 R 的新手，在可视化一些数据时遇到了一些麻烦。 我有一些这种形式的数据：数据表的图片

我使用上面的函数来 3d 绘制它们：

scatter3D(x=data$X, y=data$Y, z=data$Depth, bty="g", pch=20, cex=2, ticktype="detailed")

现在我想将名称（标签）添加到每个点（例如 A1、A2 等）并创建具有不同颜色的组（例如点 A1 到 A3 蓝色、A4 到 A6 红色）。 我不知道我该怎么做。

Answer 1

由于您没有提供数据，因此无法提供与您的问题直接相关的答案。 始终建议使用dput()来提供至少一部分数据。 数据图片无法提供有用的信息。 还要指出您已加载的包。 在这种情况下，它很可能是你已经装载plot3D包含了scatter3D功能。

scatter3D的手册页提供了您所有问题的答案 ( ?scatter3D )，但它很详细，可能难以遵循。 研究手册页上提供的示例，以下内容似乎可以完成您想要的。 它使用 R 提供的USArrests数据集：

library(plot3D)
data(USArrests)
UP <- cut(USArrests$UrbanPop, breaks=quantile(USArrests$UrbanPop), include.lowest=TRUE)

这将加载数据集并从变量UrbanPop创建一个分类变量。 现在基本情节：

with(USArrests, scatter3D(Murder, Assault, Rape, colvar = as.numeric(UP),
    col = c("red", "green", "blue", "violet"), theta = 60, phi = 20, 
    xlab = "Murder", ylab = "Assault", zlab = "Rape", main = "USA arrests", 
    cex = 1, pch=16, bty = "g", ticktype = "detailed", 
    d = 2, clab = "Urban Population", adj = 0.5, font = 2, 
    colkey=list(at = c(1.4, 2.1, 2.9, 3.6), side = 1, 
    addlines = TRUE, length = 0.75, width = 0.5,
    labels = c("1st Quart", "2nd Quart", "3rd Quart", "4th Quart"))))

这将创建基本图，其中圆圈由每个州的城市人口百分比的四分位数着色。 获取标记图例的位置 ( at= ) 需要一些反复试验。 现在我们添加文本标签：

with(USArrests, text3D(Murder, Assault, Rape, colvar = as.numeric(UP),
    col = c("red", "green", "blue", "violet"), colkey=FALSE,
    labels = state.abb, cex = .75, adj=-.5, add=TRUE))

我们使用state.abb为每个州提供两个字符的缩写。