Gestion de la transparence avec RGL

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:

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