r - R と Rgl を使用した色付きの球体の 3D 散布図

Question

色が 4 次元の球の 3D 散布図を作成したいと考えています。各行が粒子の x、y、z 位置を示す csv ファイルにデータがあり、粒子の値 (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 つのレイヤー、および赤いボールのレイヤーが再び表示されます。