moyenne mobile sur graphique

Version imprimable

19/07/2016, 08h56
_sorra

moyenne mobile sur graphique

Bonjour à tous,

J'ai un problème, je n'arrive pas à trouver la fonction qui me permet de tracer une courbe de l'évolution de mes données... Et aussi de rajouter une deuxième courbe à mon graphique qui représente la moyenne mobile...

Bonne journée tout le monde, j'espère que quelqu'un pourra m'aider merci.

Cordialement M.Sorra
19/07/2016, 09h16
_sorra

Bon, j'ai trouvé avec la fonction plot et avec type "l" comment tracer la courbe mais voilà, la taille n'est pas du tout adaptée, comment puis-je faire ?
J'ai trop de données donc ça me fait une grosse barrette noire en gros, et je voudrais "étirer la courbe pour qu'elle soit plus claire", en gros jouer avec l'échelle...

Sinon pour la deuxième courbe, je n'ai toujours pas réussi.

@M.S
19/07/2016, 17h13
aleksik
Bonjour _sorra,

As tu un rapide exemple de données et de code jusqu'à présent pour qu'on puisse travailler dessus ?

Je ne sais pas si ça va aider ou si ça concerne bien ta demande, mais une approche en attendant :
Code:

1 2 3 4 5 6 7 var1<-seq(0,60,0.5) var2<-3*var1+2 var3<-0.5*var1^2 plot(0,0,type="n",xlab="var1",ylab="",xlim=range(var1),ylim=c(0,max(var2,var3))) lines(var1,var2,col=2) lines(var1,var3,col=3)
Sinon un exemple de graphique avec 2 axes des ordonnées à cette page : http://abcdr.guyader.pro/521-comment...onnees-dans-r/

bonjour,

Merci d'avoir repondu voici mon code :
(je n'est pas encore trouver coment faire la moyenne mobile mais on peut prendre l'exemple de la moyenne simple à ajouter au graphique)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
{
cat(x)
cat(" ")
moyenne <- print(mean(table1[[x]]))
moyenne <- round(moyenne, 8)
ecart <- print(sd(table1[[x]]))
ecart <- round(ecart, 8)
var <- print(var(table1[[x]]))
var <- round(var,8)
 
dirCor3 <- paste0(dirPath,"/plot")
dir.create(dirCor3)
mypath3 <- file.path(dirCor3,paste(x,".png", sep = ""))
png(filename = mypath3,width = 1000, height = 1000,units = 'px', pointsize = 12, bg = "white", res = NA,restoreConsole = TRUE)
plot(table1[[x]], main = names(table1[x]),las=1, cex.main=1, cex.lab=0.99, xlab = NULL, ylab = NULL,type="l")
dev.off()
}