我想创建一个球体的 3d 散点图,它们的颜色是第四维。我在 csv 文件中有数据,其中每行表示粒子的 x、y、z 位置,并且有一列告诉我粒子的值(1,2 或 3)。如果它们的值为 1,我想用一种颜色为球着色,否则用另一种颜色着色。
编辑:
我创建了以下代码:
library(rgl)
m <- read.csv(file="mem0.csv", sep = ",", head=TRUE)
mcol = m$val
i = 1
mdim = dim(m)
while (i <= mdim[1] ){
if (mcol[i] == 1){
mcol[i] = "red"
}else {
mcol[i] = "blue"
}
i = i +1
}
plot3d(m$x, m$y, m$z, col = mcol, type='s', size=0.1)
编辑编号 2:
我使用 rgl.snapshot() 导出到 svg 文件:
数据应该再次显示一层红球、4层蓝球和一层红球。