Modification des fichiers de génération de graphe et les graphes en question...

Modification des fichiers de génération de graphe et les graphes en question pour rajouter des titres et modifier les légendes

tp2/perf.R

@@ -4,7 +4,10 @@ library(ggplot2)
 
 perf <- read.table("perf.dat",header=TRUE)
 
-###ggplot(perf,aes(x=taille,y=temps,color=tri,shape=typeTab)) + geom_point() + geom_line() + facet_grid(tri ~ typeTab) ###+ scale_y_log10()
-ggplot(perf,aes(x=taille,y=temps,color=tri)) + geom_point() + geom_smooth() + facet_grid(tri ~ typeTab)
+ggplot(perf,aes(x=taille,y=temps,color=tri)) + geom_point() + geom_smooth() +
+	facet_grid(tri ~ typeTab,labeller=labeller(typeTab = c(al = "Aléatoire",co = "Constant",cr = "Croissant",de = "Décroissant"),tri = c(f = "Fusion",i = "Insertion",r = "Rapide"))) +
+	ggtitle("Temps d'exécution des tris en fonction\ndu type de tableau d'entrée et de sa taille") +
+	theme(plot.title = element_text(hjust = 0.5)) +
+	scale_color_discrete(name="Tris",breaks=c("f","i","r"),labels=c("Fusion","Insertion","Rapide"))
 
 ggsave("comparaison_tris.png")

tp2/rapide.R

@@ -5,7 +5,10 @@ library(ggplot2)
 perf <- read.table("rapide.dat",header=TRUE)
 
 ggplot(perf,aes(x=taille,y=temps,color=as.character(partiti+melange*2))) +
-	geom_smooth() + facet_grid(pivot ~ typeTab) + geom_point() +
-	theme(axis.text.x=element_blank())
+	geom_smooth() + geom_point() +
+	facet_grid(pivot ~ typeTab,labeller=labeller(pivot = c('0' = "Dernier",'1' = "Aléatoire",'2' = "Triple aléatoire médian"),typeTab = c(al = "Aléatoire",co = "Constant",cr = "Croissant",de = "Décroissant"))) +
+	ggtitle("Temps d'exécution du tri rapide avec ou sans amélioration\n(partition à 3 parties, mélange préliminaire et pivot)\nen fonction du type de tableau et de sa taille") +
+	theme(axis.text.x=element_blank(),plot.title = element_text(hjust = 0.2)) +
+	scale_color_discrete(name="Partition à 3 parties et/ou\nmélange préliminaire",breaks=c(0,1,2,3),labels=c("Ni 3-partition ni mélange","3-partition sans mélange","Mélange sans 3-partition","3-partition et mélange"))
 
 ggsave("comparaison_rapide.png")