Attribuer une couleur aux individus dans un nuage de points

[Stéphanie Juillard]

Je crois que tout est dans le titre... Je cherche à attribuer des couleurs différentes à des individus dans un nuage de points.
Je m'explique : je dispose des coordonnées de ces individus sur deux axes (des composantes principales d'une ACP), en excluant une variable indépendante nominale. J'aimerai la rajouter en colorant les individus selon leur modalité de cette variable.
Comment faire pour faire apparaître les cinq premiers individus en vert, les cinq suivant en rouge, etc. ?
En termes de couleurs, je ne connais que la commande suivante que je ne peux pas appliquer à mon cas :
> ifelse(nom variable == "modalité variable", "blue", "red")

[Nicolas Péru]

La question apparait réguilièrement :)
Il faut utiliser la fonction rechercher du forum, on trouve pas exemple :

viewtopic.php?t=861&highlight=couleur+acp

[Stéphanie Juillard]

Merci pour cette réponse.
Le problème est que je n'utilise pas le package ADE4 : je dois calculer (dans un premier temps) l'ACP manuellement, étape par étape.

Peut-être je peux reformuler ma question : comment définir un vecteur de plus de deux couleurs sous R ?

[Renaud Lancelot]

Exemple:

Code : Tout sélectionner

dfr <- data.frame(x = runif(10),
                  y = runif(10),
                  z = sample(c("A", "B", "C"), size = 10, replace = TRUE))
cols <- with(dfr, ifelse(z == "A", "red",
                      ifelse(z == "B", "blue", "green")))
plot(y ~ x, col = cols, pch = 19, data = dfr)
with(dfr, text(x, y, z, adj = c(.5, -.5)))


Renaud

[Logez Maxime]

Bonjour,

tu peux aussi le faire avec la fonction match :

Code : Tout sélectionner

# en reprenant l'exemple de Renaud :
z <- sample(c("A", "B", "C"), size = 10, replace = TRUE)
cols <- c("red","blue","green")[match(z,sort(unique(z)))]
table(cols,z)

Maxime