diff options
| author | Loïc Guégan <loic.guegan@mailbox.org> | 2024-06-29 14:27:13 +0200 |
|---|---|---|
| committer | Loïc Guégan <loic.guegan@mailbox.org> | 2024-06-29 14:27:13 +0200 |
| commit | 072ce4f48f2e1b05e36c419b6ed37025b07314f9 (patch) | |
| tree | bfdc383e43e79a8f5deaa0d5f9deedace740cc27 /results/pareto.R | |
| parent | 7bc73b807f802978fdd0bfd38264ab25c88cb86f (diff) | |
Add datasize scalability results
Diffstat (limited to 'results/pareto.R')
| -rw-r--r-- | results/pareto.R | 20 |
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())) |