3d scatterplot с цветными шарами с R и Rgl - PullRequest
Новая
       19

3d scatterplot с цветными шарами с R и Rgl

8 голосов
/ 07 марта 2011

Я хочу создать трехмерную диаграмму рассеяния сфер, цвет которой будет четвертым измерением. У меня есть данные в CSV-файле, где каждая строка указывает положение частицы по оси x, y, z, и у меня есть столбец, который сообщает мне значение частицы (1,2 или 3). Я хочу раскрасить шары в один цвет, если их значение равно 1, или в другой цвет в противном случае.

Edit:

Я создал следующий код: 

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:

a snapshot of my rgl.shanpshot

Данные должны снова отобразить слой красных шаров, 4 слоя синих шаров и слой красных шаров.

1 Ответ

16 голосов
/ 07 марта 2011

Функция plot3d() пакета rgl позволяет сделать это довольно легко.И вы даже можете изучить свой сюжет в интерактивном режиме: 

R> library(rgl)

R> df <- data.frame(x=runif(10,0,1),
+                  y=runif(10,0,1),
+                  z=runif(10,0,1),
+                  color=round(runif(10,1,3)))
R> df
            x         y          z color
1  0.73518229 0.1385970 0.69053482     2
2  0.88789302 0.6872121 0.54734176     2
3  0.79402546 0.5771570 0.89613292     1
4  0.19922140 0.2117405 0.25116078     1
5  0.31825325 0.7449661 0.01174593     2
6  0.64614521 0.4704698 0.68905621     1
7  0.15242295 0.6461338 0.77896858     1
8  0.32698024 0.4548752 0.33969754     3
9  0.00793849 0.6557488 0.75901935     2
10 0.20460232 0.9302882 0.23413984     3

Вы можете позвонить plot3d() следующим образом: 

R> plot3d(df$x, df$y, df$z, col=df$color, size=2, type='s')

Что даст вам что-то вроде:

plot3d result

...