rgl 3D scatterplot - управление размером сфер из 4-го измерения (пузырьковый график)

Question

Я работаю над трехмерным графиком рассеяния, используя пакет rgl в R, с несколькими цветами для разных серий. Мне было интересно, будет ли способ построить 4-е измерение, контролируя размер сфер.

Я знаю, что это возможно с помощью plotly ("пузырьковый график"): https://plot.ly/r/3d-scatter-plots/, но Plotly начинает мерцать при работе с большим количеством точек данных. Можно ли добиться того же результата, используя Rgl?

Answer 1

set.seed(101)
dd <- data.frame(x=rnorm(100),y=rnorm(100),z=rnorm(100),
                 c=rnorm(100),s=rnorm(100))

Функция масштабирования (я настроил, чтобы значения оставались строго в (0,1), не знаю, действительно ли это необходимо):

ss <- function(x) scale(x,center=min(x)-0.01,scale=diff(range(x))+0.02)
library(rgl)

Определите цвета (может быть лучший способ сделать это...)

cvec <- apply(colorRamp(c("red","blue"))(ss(dd$c))/255,1,
              function(x) rgb(x[1],x[2],x[3]))

Картинка (нужна type="s" чтобы получить сферы)

with(dd,plot3d(x,y,z,type="s",radius=ss(s), col=cvec))