1 files changed, 16 insertions, 4 deletions
diff --git a/results/pareto.R b/results/pareto.R
index 0a656d3..6824f61 100644
--- a/results/pareto.R
+++ b/results/pareto.R
@@ -93,14 +93,26 @@ pareto = pareto %>% mutate(success = as.numeric(success))
 pareto = pareto %>% arrange(energy,success)
 pareto = pareto %>% dformat()
 
-ggplot(stats%>%dformat(),aes(energy,success,color=simkey,shape=strategy))+
+##### Policies
+ggplot(stats%>%dformat(),aes(energy,success,color=simkey,shape=simkey))+
     geom_line(data=pareto,aes(energy,success),linetype="dashed", size=1,inherit.aes=FALSE)+
-    geom_point(alpha=0.1,size=4)+
+    geom_point(size=4)+
     geom_point(data=pareto,size=4)+scale_y_reverse()+
-    labs(color="Policies:",shape="Strategies:")+scale_color_brewer(palette = "Spectral")+theme_minimal()+theme(text=element_text(size=20), legend.position=c(.8,.75),legend.box.background = element_rect(color="black", size=1, fill="white"))+
+    labs(color="Policies:",shape="Policies:")+scale_color_brewer(palette = "Set1")+theme_minimal()+theme(text=element_text(size=20), legend.position=c(.8,.75),legend.box.background = element_rect(color="black", size=1, fill="white"))+scale_shape_manual(values = c(17,18,20,3,4))+
     xlab("Sender energy consumption (J)")+ylab(TeX(r'(#Succ$_p$)'))
 #    +facet_wrap(~wakeupfor+wireless,scale="free")
-ggsave("pareto.pdf",width=10,height=9)
+ggsave("pareto_policies.pdf",width=10,height=9)
+
+##### Strategies
+ggplot(stats%>%dformat(),aes(energy,success,color=strategy,shape=strategy))+
+    geom_line(data=pareto,aes(energy,success),linetype="dashed", size=1,inherit.aes=FALSE)+
+    geom_point(size=4)+
+    geom_point(data=pareto,size=4)+scale_y_reverse()+
+    labs(color="Strategies:",shape="Strategies:")+scale_color_brewer(palette = "Dark2")+theme_minimal()+theme(text=element_text(size=20), legend.position=c(.8,.75),legend.box.background = element_rect(color="black", size=1, fill="white"))+scale_shape_manual(values = c(17,18,20,3,4))+
+    xlab("Sender energy consumption (J)")+ylab(TeX(r'(#Succ$_p$)'))
+#    +facet_wrap(~wakeupfor+wireless,scale="free")
+ggsave("pareto_strategies.pdf",width=10,height=9)
+
 
 message("Pareto infos:")
 print(pareto%>%group_by(simkey)%>%summarize(count=n()))