diff options
Diffstat (limited to 'analysis/analysis.R')
| -rw-r--r-- | analysis/analysis.R | 21 |
1 files changed, 18 insertions, 3 deletions
diff --git a/analysis/analysis.R b/analysis/analysis.R index 2e54763..f38a1a3 100644 --- a/analysis/analysis.R +++ b/analysis/analysis.R @@ -30,8 +30,6 @@ data_seed=data%>%group_by(simkey,wireless,wakeupfor,seed)%>%summarize(energy=sum mutate(efficiency=energy/coverage)%>% ungroup() - - ## Perform various plots to understand the data GG_VARIOUS=function(){ ## Dimension Coverage @@ -47,12 +45,29 @@ GG_VARIOUS=function(){ aes(simkey,efficiency,color=wakeupfor))+ geom_point()+facet_wrap(~wireless+wakeupfor)+ggtitle("Dimension Efficiency")+ylab("Efficiency (J/Succ)") ggsave("figures/dimension_efficiency.pdf") + ## Dimension Energy/Coverage + ggplot(data_seed%>%mutate(wakeupfor=as.character(wakeupfor)), + aes(coverage,energy,color=simkey))+geom_point()+ + ggtitle("Dimension Energy/Coverage")+xlab("Coverage")+ylab("Sum of nodes energy consumption (J)")+ + facet_wrap(~wakeupfor+wireless,scale="free") + ggsave("figures/dimension_energy-coverage.pdf") + ## Dimension Energy/Coverage Wakeupfor + ggplot(data_seed%>%mutate(wakeupfor=as.character(wakeupfor)), + aes(coverage,energy,color=wakeupfor))+geom_point()+ + ggtitle("Dimension Energy/Coverage Wakeupfor")+xlab("Coverage")+ylab("Sum of nodes energy consumption (J)") + ggsave("figures/dimension_energy-coverage-wakeupfor.pdf") + ## Dimension Energy/Coverage Policy + ggplot(data_seed%>%mutate(wakeupfor=as.character(wakeupfor)), + aes(coverage,energy,color=simkey))+geom_point()+ + ggtitle("Dimension Energy/Coverage Policy")+xlab("Coverage")+ylab("Sum of nodes energy consumption (J)") + ggsave("figures/dimension_energy-coverage-policy.pdf") + + } ## Plot to generate: GG_VARIOUS() - system("rm -f figures/combined.pdf") system("pdfunite figures/*.pdf figures/combined.pdf") |