Bonjour à tous,
Je souhaiterais faire un joli graphique représentant une ACP avec deux variables supplémentaires. Mais je n'y arrives pas...
Voila mon code
G=if(adegraphicsLoaded()) {
g1 <- s.arrow(ACP$co[,c(1,2)],plab.cex = 1.5, plot = TRUE,xlim=c(-1.2, +1.2), ylim=c(-1.2,+1.2))
g2 <- s.arrow(supcol(ACP, scalewt(datataux[,c(15:16)]))$cosup, plab.cex = 1, plot = TRUE)
G <- superpose(g1, g2, plot = TRUE)
} else {
s.arrow(ACP$co[,c(1,2)], xlim=c(-1.2,+1.2),ylim=c(-1.2,+1.2))
s.arrow(supcol(ACP, scalewt(datataux[,c(15:16)]))$cosup, add.p = TRUE, clab = 1,boxes = FALSE)
symbols(0, 0, circles = 1, inches = TRUE, add = TRUE)
}
Ce que je voudrais : ne pas avoir le nom de mes variables dans des cases
Mettre mes variables supplémentaires en rouge.
Merci