Fix plots

renduTP2/rplot4_tab.R

@@ -16,22 +16,22 @@ bulle <- subset(df, algo == "bulle" )
 #temps
 
 ft <- ggplot(fusion, aes(x = taille, y = temps, color = typeTableau)) +
-geom_smooth(size=1.5,alpha=0.8)+ geom_point()+ labs(title="Fusion Temps/Taille",x="Taille",y="Temps", color = "")+
+geom_smooth(size=0.8,alpha=0.4)+ geom_point()+ labs(title="Fusion Temps/Taille",x="Taille",y="Temps", color = "")+
 theme_fivethirtyeight()+theme(axis.title=element_text())
 
 it <- ggplot(insert, aes(x = taille, y = temps, color = typeTableau)) +
-geom_smooth(size=1.5,alpha=0.8)+ geom_point()+ labs(title="Insert Temps/Taille",x="Taille",y="Temps", color = "")+
+geom_smooth(size=0.8,alpha=0.4)+ geom_point()+ labs(title="Insert Temps/Taille",x="Taille",y="Temps", color = "")+
 theme_fivethirtyeight()+theme(axis.title=element_text())
 
 
 
 rt <- ggplot(rapide, aes(x = taille, y = temps, color = typeTableau)) +
-geom_smooth(size=1.5,alpha=0.8)+ geom_point()+ labs(title="Rapide Temps/Taille",x="Taille",y="Temps", color = "")+
+geom_smooth(size=0.8,alpha=0.4)+ geom_point()+ labs(title="Rapide Temps/Taille",x="Taille",y="Temps", color = "")+
 theme_fivethirtyeight()+theme(axis.title=element_text())
 
 
 bt <- ggplot(bulle, aes(x = taille, y = temps, color = typeTableau)) +
-geom_smooth(size=1.5,alpha=0.8)+ geom_point()+ labs(title="Bulle Temps/Taille",x="Taille",y="Temps", color = "")+
+geom_smooth(size=0.8,alpha=0.4)+ geom_point()+ labs(title="Bulle Temps/Taille",x="Taille",y="Temps", color = "")+
 theme_fivethirtyeight()+theme(axis.title=element_text())
 
 
@@ -39,24 +39,24 @@ theme_fivethirtyeight()+theme(axis.title=element_text())
 #memoire
 
 fm <- ggplot(fusion, aes(x = taille, y = mem, color = typeTableau)) +
-geom_smooth(size=1.5,alpha=0.8)+ geom_point()+ labs(title="Fusion Memoire/Taille",x="Taille",y="Memoire", color = "")+
+geom_smooth(size=0.8,alpha=0.4)+ geom_point()+ labs(title="Fusion Memoire/Taille",x="Taille",y="Memoire", color = "")+
 theme_fivethirtyeight()+theme(axis.title=element_text())
 
 
 im <- ggplot(insert, aes(x = taille, y = mem, color = typeTableau)) +
-geom_smooth(size=1.5,alpha=0.8)+ geom_point()+ labs(title="Insertion Memoire/Taille",x="Taille",y="Memoire", color = "")+
+geom_smooth(size=0.8,alpha=0.4)+ geom_point()+ labs(title="Insertion Memoire/Taille",x="Taille",y="Memoire", color = "")+
 theme_fivethirtyeight()+theme(axis.title=element_text())
 
 
 rm <- ggplot(rapide, aes(x = taille, y = mem, color = typeTableau)) +
-geom_smooth(size=1.5,alpha=0.8)+ geom_point()+ labs(title="Rapide Memoire/Taille",x="Taille",y="Memoire", color = "")+
+geom_smooth(size=0.8,alpha=0.4)+ geom_point()+ labs(title="Rapide Memoire/Taille",x="Taille",y="Memoire", color = "")+
 theme_fivethirtyeight()+theme(axis.title=element_text())
 
 
 
 
 bm <- ggplot(bulle, aes(x = taille, y = mem, color = typeTableau)) +
-geom_smooth(size=1.5,alpha=0.8)+ geom_point()+ labs(title="Bulle Memoire/Taille",x="Taille",y="Memoire", color = "")+
+geom_smooth(size=0.8,alpha=0.4)+ geom_point()+ labs(title="Bulle Memoire/Taille",x="Taille",y="Memoire", color = "")+
 theme_fivethirtyeight()+theme(axis.title=element_text())
 
 figure_temp <- grid.arrange(ft,it,rt,bt,nrow=2,ncol=2)