Dans le cadre d'un cours sur les biais de confusion, je produits un nuage de points. Je le représente en 3D.
Code : Tout sélectionner
set.seeds(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))
A partir de la, j'aimerais changer des détails. Et je n'ai pas trouvé :-( :
1/ Sur l'axe des X et des Y, j'aimerais modifier les labels : au lieu d'avoir des nombres, je voudrais "Riche/Pauvre" et "Oui/Non"
2/ J'aimerais que les labels soient toujours en bas. A droite, a gauche ou devant, mais toujours en bas.
Savez-vous dans quelle direction chercher ?
Bonne fin de journée
Christophe