Discussion :

[Florence Magnin]

Bonjour,

je cherche à faire un graphe avec des points x,y et dont la couleur est définie par une valeur de z.

Voilà ce que j'ai écrit pour faire un test sachant que des valeurs de z sont > 2 et d'autres > à 2

Code :

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

#

if (z[i] > 2) {col="red"} else {col="blue"} Seulement, mes points (ou ma courbe) sortent tous de la même couleur: ici bleu alors que la première valeur de z est > 2.

Quelqu'un aurait-il donc plus de compétences que moi pour formuler une boucle qui assigne une couleur à mon point en fonction de sa valeur.

Merci d'avance

[lilly74]

Bonjour,

quelque chose comme cela?

Code :

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

1
2
3
4
5
x <- rnorm(10)
y <- rnorm(10)
z <- runif(10, 0, 4)
 
plot(x,y, col=ifelse(z<2, "blue", "red"))

Bonne journée

[Florence Magnin]

Super Merci!! :-)

On frise l'objectif.
N'étant que novice j'ai du mal à imaginer une extension de cette formule pour plusieurs classes de couleurs.

Avec ifelse, on ne peut se permettre qu'une seule alternative?

Si je veux faire z = 0 ==> col = "black",
0 < z < 1 ==> col = "blue",
1 < z < 2 ==> col ="red"
... et ainsi de suite,

puis-je toujours utiliser ifelse ??

Si oui comment?
Sinon, comment écrire cette fonction?

Merci!!

[lilly74]

En fait, cela dépend du nombre de "classes" que vous souhaitez définir pour les valeurs de z.

On peut faire des ifelse imbriqués.

Code :

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

?ifelse

En admettant que vous n'ayez que 3 classes (z=0, 0<z<=1, 1<z<=2), cela donnerait sur un exemple rapide:

Code :

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

1
2
3
4
5
6
x <- rnorm(10)
y <- rnorm(10)
z <- runif(9, 0, 2)
z[10] <- 0
 
plot(x,y, col=ifelse(z==0, "green", ifelse(z<=1, "red", "blue")))

Bonne continuation

[Florence Magnin]

Merci beaucoup,

c'est exactement ce que je cherchais.
En revanche, je peine à faire plus de trois classes.

Dans l'idée mes classes seraient:

-1 < z < 0 ==> col ="black"

0 < z < 1 ==> col = "turquoise"

1 < z < 2 ==> col = "yellow"

2 < z < 3 ==> col ="orange"

z > 3 ==> col = "red"

Est-ce possible de démultiplier les classes avec

Code :

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

 col = ifelse(...), ifelse(...)

Je n'en ai pas l'impression, mais cela vient peut être de mon manque de pratique.

Merci pour votre aide.

Bonne journée

[tomaprice]

ifelse c'est bien quand il y a 2 conditions, après on peut les combiner mais c'est pas simple à lire et à comprendre.

Le mieux est de faire comme cela:

Code :

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

1
2
3
4
5
6
7
8
x=rnorm(1000,0,5)
col = rep(NA,length(x))
col[x < -1]="black"
col[x > 0 & x < 1]="cyan"
col[x > 1 & x < 2]="yellow"
col[x > 2 & x < 3]="orange"
col[x > 3]="red"
plot(x,col=col)

[Florence Magnin]

C'est exactement ça!
Merci beaucoup.