Discussion :

[Christophe Genolini]

Bonjour

J'ai un soucis de transparence avec RGL.
J'ai une variable numérique ("Peste"), deux variables binaires ("Fortune" et "Avoir des diamants"). Je fais une régression des deux variables binaires sur la numérique "peste~fortune+diamant".

Pour illustrer tout ca, je veux représenter les points en 3D, puis le plan de régression. Sauf que le plan n'est pas transparent. J'ai essayé avec le canal alpha, également avec adjuscolor : j'obtiens une fausse transparence. La couleur du plan est modifiée comme s'il était transparent, mais on ne voit pas à travers. Savez-vous comment je peux obtenir une vrai transparence avec rgl ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
set.seed(13)
dn <- expand.grid(id=1,Fortune=c("Riche","Pauvre"),Diamant=c("Oui","Non"))
dn <- dn[rep(1:4,times=c(50,5,10,100)),]
n <- nrow(dn)
dn$id <- 1:n
dn$Peste <- round(runif(n,0,ifelse(dn$Fortune=="Riche",10,30)),1)
 
library(rgl)
plot3d(dn$Fortune,dn$Diamant,dn$Peste,xlim=c(0.8,2.2),ylim=c(0.8,2.2),zlim=c(0,50),
  axes=TRUE,xlab="",ylab="",zlab="")
 
triangles3d(x=c(0.8,0.8,2.2),y=c(0.8,2.2,2.2),z=c(2,9,23),col=adjustcolor("red",0.3),alpha=0.3)
triangles3d(x=c(2.2,2.2,0.8),y=c(2.2,0.8,0.8),z=c(23,16,2),col=adjustcolor("red",0),alpha=0.3)

Merci pour votre aide.
Christophe

[Christophe Genolini]

J'ai trouvé : c'est un bug de RGL. Il y a une correction qu'on peut trouver sur la version RGL qui est sur R-forge.