Я хочу создать трехмерную диаграмму рассеяния сфер с их цветом в четвертом измерении . У меня есть данные в файле 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 слоя синих шаров и снова слой красных шаров.