diff options
Diffstat (limited to 'analysis/analysis.R')
| -rw-r--r-- | analysis/analysis.R | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/analysis/analysis.R b/analysis/analysis.R index bd27626..90874ed 100644 --- a/analysis/analysis.R +++ b/analysis/analysis.R @@ -20,7 +20,7 @@ nwireless=2 nsimkey=4 nsimulations=nseed*nwakeupfor*nwireless*nsimkey # Must be 3200 -if(FALSE){ # Toggle +if(F){ # Toggle ## Load data data=read_csv("../CCGRID2022.csv")%>%distinct() # Note that in the data experiment wireless=="lora",seed==1,wakeupfor==60,simkey=="baseline" is present 2 times in the CSV file tmp_data_coverage=data%>%group_by(simkey,wireless,wakeupfor,seed)%>%mutate(coverage=sum(nDataRcv))%>%ungroup()%>%filter(isSender==1)%>%select(simkey,wireless,wakeupfor,seed,coverage) @@ -50,11 +50,12 @@ GG_VARIOUS=function(){ scale_shape_manual(values=c(22, 15, 16,1))+labs(shape="Policy",color="Policy")+ theme_bw()+ guides(colour = guide_legend(override.aes = list(alpha = 1)))+ - facet_wrap(~wakeupfor+wireless,scale="free")+scale_color_viridis(discrete=TRUE)+ + facet_wrap(~wakeupfor+wireless,scale="free")+scale_color_viridis(discrete=TRUE,option="B")+ theme(legend.position = c(0.15,0.87), legend.background = element_rect(fill = "white", color = "black",size=0.8))+ scale_x_continuous(breaks=seq(0,12)) ggsave("figures/dimension_energy-coverage.pdf") + stopifnot(1) ## Dimension Energy/Coverage Wakeupfor ggplot(data_seed%>%mutate(wakeupfor=as.character(wakeupfor)), aes(coverage,energy,color=wakeupfor))+geom_point(alpha=0.5)+labs(color="Policy")+theme(legend.position="top")+ |