formulation boucle simple

Bonjour,

je me sers de R depuis quelques temps mais uniquement pour des applcations extrêmement basiques.
Je n'ai aucune base en algorithmique et je peine réellement à formuler des boucles simples. Voici ce que je cherche à réaliser:

je crée un vecteur que j'appelle 'anomaly' et qui contient 51 valeurs numériques.
Je souhaite en faire un graphe avec une ligne toute simple (anomaly est le y de mon plot et mon graphe un histogramme où chaque barre est une valeur de anomaly), mais j'aimerais que si la valeur est supérieure à 1 elle soit dessinée et rouge et si elle est inférieure elle soit dessinée en bleu.

Voici ce que j'ai écris:

Code:

---

1 2	col <- if (anomaly > 0) {col="red"}else{col="blue"}

---

et voici le message d'erreur que j'obtiens:

Code:

---

1 2 3 4

Warning message: In if (anomaly > 0) { : the condition has length > 1 and only the first element will be used

---

Quelqu'un pourait m'expliquer comment faire une boucle pour paramétrer la couleur de mon graphe?

En vous remerciant.
Bien cordialement.

Bonjour,

Tout d'abord pour ce qui est de la condition:
Dans le cas d'une condition, on souhaite souvent comparer plusieurs valeurs à une autre.
Dans notre esprit nous comparons toutes les valeurs (c'est l'objectif) mais en réalité nous procédons à des comparaisons successives, nous comparons d'abord la première, puis la deuxième et ainsi de suite. Nous ne retenons que le résultat "j'ai comparé toutes les valeurs." Oui, mais une par une!
R n'est (heureusement?) pas beaucoup plus futé que nous, si bien que lorsqu'on lui demande de comparer les valeurs d'un vecteur à une valeur de notre choix, il faut lui dire de considérer chaque valeur l'une après l'autre. C'est là que la boucle entre en jeu.
L'erreur qu'il renvoie signifie qu'il y a plusieurs valeurs dans le vecteur mais qu'il n'est pas capable de toutes les comparer d'un coup, il ne prend donc que la première.

La boucle for() sera votre principal outil dans ces cas, elle permet de spécifier des étapes.

Code:

---

1 2 3 4 5

for(i in 1:length(anomaly)){ if(anomaly[i]>0){ blablabla } }

---

i devient alors "mouvant" et permet de se déplacer dans les cases du vecteur.

Cependant les boucles for() sont un peu gourmandes en R dès lors que vous travaillez sur de grosses bases et il existe des moyens de faire sans boucle le travail d'une boucle!

Voici un exemple qui devrait faire ce que vous recherchez:

Code:

---

1 2	colo <- ifelse(anomaly>0,"red","blue") barplot(anomaly,col=colo)

---

La condition ifelse() contrairement à la simple condition if() intègre le fait qu'elle doit parcourir chaque case du vecteur et ne nécessite pas la construction d'une boucle (elle est en quelque sorte sa propre boucle).

Voilà, en espérant ne pas vous avoir ennuyée. ^^

Bon dimanche et bon courage!

À bientôt.