Discussion :

[ludvig38]

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 :

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

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 :

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

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

Merci d'avance pour vos réponses.

Tomas

[A. D.]

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 :

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

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 :

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

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 :

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

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.

[ludvig38]

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 :

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

n<-levels(data$Espece)

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

Merci d'avance

[A. D.]

Bonjour,

Vous pouvez faire quelque chose comme ceci je pense :

Code :

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

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 :

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

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.