scatter3d - цветные точки на основе 4-й переменной

Question

Я хотел бы сделать трехмерный график с помощью scatter3d, но не знаю, как раскрасить точки на основе значений четвертой переменной (здесь VAR4). Может ли кто-нибудь любезно помочь мне? Было бы замечательно, если бы, добавив эти цвета, я по-прежнему сохранил эффект затухания, который есть в версии по умолчанию (точки, расположенные дальше на трехмерном графике, отображаются более светлым цветом). Спасибо!

df <- data.frame(VAR4=c(10,52,78,34,13,54), 
                   A=c(12, 8, 10, 7, 13, 15), 
                   B=c(4,3,2,1,7,5), 
                   C=c(1,3,2,1,3,1))

library(rgl)
library(car)
scatter3d(A ~B + C,color=VAR4, data=df,  surface=F)

Answer 1

Вы можете попробовать это:

library(rgl)
library(car)
# add as group the VAR4, making as factor
scatter3d(A ~B + C, groups = as.factor(df$VAR4), data=df,  surface=F)

Но, если бы я мог посоветовать вам, лучше и приятнее использовать пакет plotly:

library(plotly)
# in this case we use VAR4 as continuous, you can put color = ~as.factor(VAR4) to have it as factors
plot_ly(df, x = ~A, y = ~B, z = ~C, color = ~VAR4) %>%
  add_markers() %>%
  layout(scene = list(xaxis = list(title = 'A'),
                      yaxis = list(title = 'B'),
                      zaxis = list(title = 'C')))