Bonjour,
Nouveau sur le forum, je tente de demander un peu d'aide pour modifier les étiquettes d'un axe.
À la place des indices de 1 à 24 sur le graphe, je souhaite faire figurer sur l'axe des abscisses le mois (à savoir Jan Fev Mar etc) et l'année lorsque celle-ci change (par exemple mettre l'année en étiquette au lieu du mois de décembre).
Par ailleurs, il y a en réalité beaucoup plus de stations (ici, seules 2 sont indiquées). Des idées pour faire une boucle en fonction de la station ?
Voilà mon tableau de data et mon script.
Merci !
SERIE Station Alt Precip Jour Mois Année Valeur
1 MRR097207002 DUCOS 40 RR 1 1 1962 187.8
2 MRR097207002 DUCOS 40 RR 1 2 1962 103.2
3 MRR097207002 DUCOS 40 RR 1 3 1962 50.9
4 MRR097207002 DUCOS 40 RR 1 4 1962 83.2
5 MRR097207002 DUCOS 40 RR 1 5 1962 85.9
6 MRR097207002 DUCOS 40 RR 1 6 1962 306.2
7 MRR097207002 DUCOS 40 RR 1 7 1962 134.6
8 MRR097207002 DUCOS 40 RR 1 8 1962 333.8
9 MRR097207002 DUCOS 40 RR 1 9 1962 248.3
10 MRR097207002 DUCOS 40 RR 1 10 1962 109.3
11 MRR097207002 DUCOS 40 RR 1 11 1962 112.6
12 MRR097207002 DUCOS 40 RR 1 12 1962 150.1
13 MRR097207002 DUCOS 40 RR 1 1 1963 148.7
14 MRR097207002 DUCOS 40 RR 1 2 1963 85.3
15 MRR097207002 DUCOS 40 RR 1 3 1963 68.7
16 MRR097207002 DUCOS 40 RR 1 4 1963 80.5
17 MRR097207002 DUCOS 40 RR 1 5 1963 182.7
18 MRR097207002 DUCOS 40 RR 1 6 1963 170.8
19 MRR097207002 DUCOS 40 RR 1 7 1963 231.7
20 MRR097207002 DUCOS 40 RR 1 8 1963 125.2
21 MRR097207002 DUCOS 40 RR 1 9 1963 306.8
22 MRR097207002 DUCOS 40 RR 1 10 1963 253.7
23 MRR097207002 DUCOS 40 RR 1 11 1963 111.3
24 MRR097207002 DUCOS 40 RR 1 12 1963 57.3
25 MRR097209001 FDF-MEDAILLE 510 RR 1 1 1962 489.8
26 MRR097209001 FDF-MEDAILLE 510 RR 1 2 1962 173.8
27 MRR097209001 FDF-MEDAILLE 510 RR 1 3 1962 81.7
28 MRR097209001 FDF-MEDAILLE 510 RR 1 4 1962 272.9
29 MRR097209001 FDF-MEDAILLE 510 RR 1 5 1962 86.9
30 MRR097209001 FDF-MEDAILLE 510 RR 1 6 1962 383.0
31 MRR097209001 FDF-MEDAILLE 510 RR 1 7 1962 379.4
32 MRR097209001 FDF-MEDAILLE 510 RR 1 8 1962 429.8
33 MRR097209001 FDF-MEDAILLE 510 RR 1 9 1962 358.0
34 MRR097209001 FDF-MEDAILLE 510 RR 1 10 1962 180.3
35 MRR097209001 FDF-MEDAILLE 510 RR 1 11 1962 217.8
36 MRR097209001 FDF-MEDAILLE 510 RR 1 12 1962 229.7
37 MRR097209001 FDF-MEDAILLE 510 RR 1 1 1963 247.9
38 MRR097209001 FDF-MEDAILLE 510 RR 1 2 1963 198.7
39 MRR097209001 FDF-MEDAILLE 510 RR 1 3 1963 175.6
40 MRR097209001 FDF-MEDAILLE 510 RR 1 4 1963 165.1
41 MRR097209001 FDF-MEDAILLE 510 RR 1 5 1963 330.8
42 MRR097209001 FDF-MEDAILLE 510 RR 1 6 1963 189.0
43 MRR097209001 FDF-MEDAILLE 510 RR 1 7 1963 461.6
44 MRR097209001 FDF-MEDAILLE 510 RR 1 8 1963 245.1
45 MRR097209001 FDF-MEDAILLE 510 RR 1 9 1963 389.3
46 MRR097209001 FDF-MEDAILLE 510 RR 1 10 1963 136.1
47 MRR097209001 FDF-MEDAILLE 510 RR 1 11 1963 232.3
48 MRR097209001 FDF-MEDAILLE 510 RR 1 12 1963 76.3
indices_station_DUCOS<-which(data[,2]=="DUCOS")
indices_station_FDF_MEDAILLE<-which(data[,2]=="FDF-MEDAILLE")
plot(data[,8][indices_station_DUCOS],main='Cumul Précipitations',xlab="Temps",ylab="Cumul (mm)",pch=16,cex=0.2,type="l",lwd=0.4,las=1,font.lab=2,col="red",ylim=c(0,max(data[,8])))
par(new = T)
plot(data[,8][indices_station_FDF_MEDAILLE],xlab="",ylab="",pch=16,cex=0.2,type="l",lwd=0.4,las=1,col="blue",ylim=c(0,max(data[,8])))
#Tracé de la moyenne (ou médiane)
tri<-order(data[,6]) #Tri selon le mois
tableau_trie<-data.frame(data[,2][tri],data[,6][tri],data[,7][tri],data[,8][tri])
tri2<-order(tableau_trie[,3]) #Tri selon l'année
tableau_trie2<-data.frame(tableau_trie[,1][tri2],tableau_trie[,2][tri2],tableau_trie[,3][tri2],tableau_trie[,4][tri2])
resultat_all_stations<-aggregate(tableau_trie2[,4],list(tableau_trie2[,2],tableau_trie2[,3]), median) #Calcul chronologique de la médiane pour toutes les stations
par(new = T)
plot(resultat_all_stations[,3],xlab="",ylab="",pch=16,cex=0.2,type="l",lwd=4,las=1,col="black",ylim=c(0,max(data[,8])))