У меня проблема, я создал plotly3D и хочу иметь разные цвета для своих очков:
На самом деле я хочу, чтобы мои очки были зеленого или красного цвета.
Более того, я хочу, чтобы нижеприведенные 3 поверхности оставались со своими цветами.
Это то, что я сделал.
donnees<-Dn(1000) # generate data frame
p<-plot_ly(showscale=F,colors=c("blue","pink","yellow"))%>%add_trace(x=donnees$age,y=donnees$salaire,z=donnees$sexe,color=~donnees$Y,mode="markers",type="scatter3d")
xgrid_3<-seq(50,60,length.out = 100)
ygrid_3<-seq(min(donnees$salaire),max(donnees$salaire),length.out = 100)
z3<-outer(xgrid_3,ygrid_3,niveaux)
color3 <- rep(0, length(z3))
dim(color3) <- dim(z3)
p<-p%>%add_surface(x=xgrid_3,y=ygrid_3,z = ~z3,surfacecolor=color3,cauto=F,cmax=1,cmin=0)
seuil<-median(donnees$salaire)
#####
xgrid_2<-seq(20,50,length.out = 100)
ygrid_2<-seq(min(donnees$salaire),seuil,length.out = 100)
z2<-outer(xgrid_2,ygrid_2,niveaux)
color2 <- rep(1, length(z2))
dim(color2) <- dim(z2)
p<-p%>%add_surface(x=xgrid_2,y=ygrid_2,z = ~z2,surfacecolor=color2,cauto=F,cmax=1,cmin=0)
xgrid_1<-xgrid_2
ygrid_1<-seq(seuil,max(donnees$salaire),length.out = 100)
z1<-outer(xgrid_1,ygrid_1,niveaux)
color1<-rep(2, length(z1))
dim(color1)<-dim(z1)
p<-p%>%add_surface(x=xgrid_1,y=ygrid_1,z = ~z1,surfacecolor=color1,cauto=T,cmax=1,cmin=0)
Может кто-нибудь помочь мне, пожалуйста?
Спасибо.