Je cherche à réaliser une boucle

Bonjour,

Je suis débutant sous R

Je dipose d'un jeu de données (data) comportant les coordonnées geographiques d'oiseaux sur une commune : il s'agit de 1050 individus pour 64 espèces. Chaque espèce comprend donc plusieurs individus, chacun avec des coordonnées:

Code:

---

1 2 3 4 5 6 7 8

head(data) Espece nom_latin Point.STOC XCOORD YCOORD 1 Corneille noire Corvus corone 1 925314 6505657 2 Etourneau sansonnet Sturnus vulgaris 1 925314 6505657 3 Mesange charbonniere Parus major 1 925314 6505657 4 Pic epeiche Dendrocopos major 1 925314 6505657 5 Pinson des arbres Fringilla coelebs 1 925314 6505657 6 Rougequeue noir Phoenicurus ochruros 1 925314 6505657

---

Je voudrais faire apparaitre pour chaque espèce, un graphique de la répartition de ces points de localisation grâce à la fonction plot.

Est-il possible de faire une boucle pour afficher en une seule fois tous ces graphiques?

Pour une espèce (mésange charbonnière), je fais comme cela:

Code:

---

1 2	Mesange_charbonniere<-subset(data,Espece=="Mesange charbonniere") plot(Mesange_charbonniere$XCOORD,Mesange_charbonniere$YCOORD)

---

Merci d'avance pour vos réponses.

Tomas

Bonjour,

Une idée pour afficher tous les graphiques sur une même page (en espérant qu'il n'y en ait pas trop !) :

Code:

---

1 2 3 4 5 6 7 8 9

n<-length(data$Espece)   par(mfrow=c(3,4)) # par exemple pour n=12, à adapter en fonction du nombre de graphes   for(i in 1:n) { M<-subset(data,Espece==data$Espece[i]) plot(M$XCOORD,M$YCOORD) }

---

Sinon, pour afficher chaque graphe dans une nouvelle fenêtre :

Code:

---

1 2 3 4 5 6 7 8

n<-length(data$Espece)   for(i in 1:n) { M<-subset(data,Espece==data$Espece[i]) x11() plot(M$XCOORD,M$YCOORD) }

---

Et il est également possible de sauver tous les graphes dans un fichier externe, par exemple un pdf :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

n<-length(data$Espece)   pdf("monpdf.pdf")   for(i in 1:n) { M<-subset(data,Espece==data$Espece[i]) plot(M$XCOORD,M$YCOORD) }   dev.off()

---

Pour info, vous trouverez plusieurs tutoriels ici, avec notamment des informations sur les boucles, la génération de graphiques, etc...

Bonne continuation :)


Cordialement,

A.D.

Bonjour,

Merci pour votre réponse.

Cependant le vecteur n que je souhaite utiliser poour la fonction for comporte des caractères et non des valeurs numeriques, il sagit d'appliquer la boucle à chacune des 63 espèce qui sont répartis dans le jeu de données, et non aux 1050 individus :

Code:

---

n<-levels(data$Espece)

---

est-il possible d'appliquer à la fonction for un vecteur de caractères?

Merci d'avance

Bonjour,

Vous pouvez faire quelque chose comme ceci je pense :

Code:

---

1 2 3

all_especes<-levels(data$Espece)   n<-length(all_especes)

---

Puis reprendre un des exemples de boucles que je vous ai indiqués :

Code:

---

1 2 3 4 5 6

for(i in 1:n) { M<-subset(data,Espece==all_especes[i]) x11() plot(M$XCOORD,M$YCOORD) }

---

Bonne continuation :)


Cordialement,

A.D.