Discussion :

[_sorra]

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

[_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

[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 :

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

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/

[_sorra]

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 :

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

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()
}