loic/loosely-coupled-dss-extended
1
0
Fork 0
mirror of https://gitlab.com/manzerbredes/loosely-coupled-dss-extended.git synced 2025-04-19 04:09:44 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Generate all graphs

Browse source
This commit is contained in:
Loïc Guégan 2024-07-02 14:39:26 +02:00
parent b11940fc56
commit ed4f922633
19 changed files with 62 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

8
analysis/strategies_pareto.R
View file

@ -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)