diff options
Diffstat (limited to '2019-ICA3PP.org')
| -rw-r--r-- | 2019-ICA3PP.org | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/2019-ICA3PP.org b/2019-ICA3PP.org index 22b55e5..63f6536 100644 --- a/2019-ICA3PP.org +++ b/2019-ICA3PP.org @@ -1130,7 +1130,7 @@ applicability of our model. data100=data%>%filter(nbSensors==100)%>%mutate(energy=mean(energy)) %>% slice(1L) data300=data%>%filter(nbSensors==300)%>%mutate(energy=mean(energy)) %>% slice(1L) dataCloud=rbind(data20,data100,data300)%>%mutate(sensorsNumber=nbSensors)%>%mutate(type="Cloud")%>%select(sensorsNumber,energy,type) - + dataCloud=dataCloud%>%mutate(energy=energy/7) # Divide by 7 because 14 core so 1 machine can host 14 vm but we use redundancy (2VM for 1app) # Network data=loadData("./logs/ns3/last/data.csv") @@ -1155,7 +1155,6 @@ applicability of our model. fakeData$type=factor(fakeData$type,ordered=TRUE,levels=c("Sensors","Network","Cloud")) # Plot - fakeData=fakeData%>%mutate(energy=energy/7) # Divide by 7 because 14 core so 1 machine can host 14 vm but we use redundancy (2VM for 1app) p=ggplot(fakeData)+geom_bar(position="dodge2",colour="black",aes(x=sensorsNumber,y=energy,fill=type),stat="identity")+ xlab("Sensors Number")+ylab("Power Consumption (W)")+guides(fill=guide_legend(title="System Part")) p=applyTheme(p)+theme(text = element_text(size=16)) |