Skip to content
Snippets Groups Projects
Commit 51f47b6d authored by Maxime Bachelet's avatar Maxime Bachelet
Browse files

Fix plots

parent 308e83de
Branches
No related merge requests found
......@@ -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)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment