diff options
Diffstat (limited to 'analysis/strategies_pareto.R')
| -rw-r--r-- | analysis/strategies_pareto.R | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/analysis/strategies_pareto.R b/analysis/strategies_pareto.R index 79eddfd..9c67ed1 100644 --- a/analysis/strategies_pareto.R +++ b/analysis/strategies_pareto.R @@ -95,20 +95,20 @@ pareto = pareto %>% dformat() ##### 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_line(data=pareto,aes(energy,success),linetype="dashed", linewidth=1,inherit.aes=FALSE)+ geom_point(size=4)+ geom_point(data=pareto,size=4)+scale_y_reverse()+ - 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))+ + labs(color="Policies:",shape="Policies:")+scale_color_brewer(palette = "Set1")+theme_minimal()+theme(text=element_text(size=20), legend.position="inside", legend.position.inside=c(.8,.75),legend.box.background = element_rect(color="black", linewidth=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("figures/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_line(data=pareto,aes(energy,success),linetype="dashed", linewidth=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))+ + labs(color="Strategies:",shape="Strategies:")+scale_color_brewer(palette = "Dark2")+theme_minimal()+theme(text=element_text(size=20), legend.position="inside",legend.position.inside=c(.8,.75),legend.box.background = element_rect(color="black", linewidth=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("figures/pareto_strategies.pdf",width=10,height=9) |