diff options
Diffstat (limited to '2019-ICA3PP.org')
| -rw-r--r-- | 2019-ICA3PP.org | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/2019-ICA3PP.org b/2019-ICA3PP.org index bfb9b95..75704b3 100644 --- a/2019-ICA3PP.org +++ b/2019-ICA3PP.org @@ -1130,8 +1130,8 @@ and provide advice for increasing the energy-efficiency of IoT infrastructures. [[file:plots/numberSensors-WIFINET.png]] - Final plot: Energy cloud, network and sensors - #+BEGIN_SRC R :noweb yes :results graphics :file plots/final.png + Final plot: Energy cloud, network and sensors + #+BEGIN_SRC R :noweb yes :results graphics :file plots/final.png <<RUtils>> # Linear Approx @@ -1155,10 +1155,12 @@ and provide advice for increasing the energy-efficiency of IoT infrastructures. data=data%>%filter(state=="sim",simKey=="nbSensors") # Cloud + data=data%>%mutate(sensorsNumber=nbSensors) data20=data%>%filter(nbSensors==20)%>%mutate(energy=mean(energy)) %>% slice(1L) 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=bind_rows(dataCloud,tibble(sensorsNumber=1,energy=approx(data20,data100,1),type="Cloud")) 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 @@ -1167,14 +1169,14 @@ and provide advice for increasing the energy-efficiency of IoT infrastructures. dataN5=data%>%filter(sensorsNumber==5)%>% mutate(energy=networkEnergy) %>%select(energy,sensorsNumber) dataN10=data%>%filter(sensorsNumber==10)%>%mutate(energy=networkEnergy) %>%select(energy,sensorsNumber) dataNet=rbind(dataN5,dataN10) - fakeNet=tibble(sensorsNumber=c(20,100,300)) + fakeNet=tibble(sensorsNumber=c(1,20,100,300)) fakeNet=fakeNet%>%mutate(energy=approx(dataN5,dataN10,sensorsNumber),type="Network") # Sensors dataS5=data%>%filter(sensorsNumber==5)%>% mutate(energy=sensorsEnergy) %>%select(energy,sensorsNumber) dataS10=data%>%filter(sensorsNumber==10)%>%mutate(energy=sensorsEnergy) %>%select(energy,sensorsNumber) dataS=rbind(dataS5,dataS10) - fakeS=tibble(sensorsNumber=c(20,100,300)) + fakeS=tibble(sensorsNumber=c(1,20,100,300)) fakeS=fakeNet%>%mutate(energy=approx(dataS5,dataS10,sensorsNumber),type="Sensors") # Combine Net/Sensors/Cloud and order factors @@ -1188,7 +1190,6 @@ and provide advice for increasing the energy-efficiency of IoT infrastructures. xlab("Sensors Number")+ylab("Power Consumption (W)")+guides(fill=guide_legend(title="System Part")) p=applyTheme(p)+theme(text = element_text(size=16)) ggsave("plots/final.png",dpi=90,width=8,height=5.5) - #+END_SRC #+RESULTS: |