diff options
Diffstat (limited to 'results/scheduler/wakeup.R')
| -rw-r--r-- | results/scheduler/wakeup.R | 26 |
1 files changed, 18 insertions, 8 deletions
diff --git a/results/scheduler/wakeup.R b/results/scheduler/wakeup.R index cf80743..7765ff7 100644 --- a/results/scheduler/wakeup.R +++ b/results/scheduler/wakeup.R @@ -23,14 +23,24 @@ ts_range=seq(0, 24)*3600 ts_labels=ts_range/3600 # Plot -p1=ggplot(data,aes(x=wakets,y=node))+ - geom_hline(aes(yintercept=node),color="grey",size=3)+ - geom_vline(data=hint,aes(xintercept=wakets,color="Hint slots"),show.legend = FALSE,linetype="longdash",size=0.3)+ - geom_linerange(aes(xmin=wakets,xmax=sleepts),size=10)+ - geom_linerange(data=hint,aes(xmin=wakets,xmax=wakets+duration,color="Hint slots"),size=10)+ - geom_point(data=data_rcv,aes(x=ts,color="Data received"),shape=18,size=4)+ - geom_point(data=hint,aes(x=rcvat,color="Hint received"),shape=18,size=3)+ - geom_point(data=hint_fw,aes(x=ts,color="Hint Forwarded"),shape=18,size=2)+ +p1=ggplot(data,aes(x=wakets,y=node)) + geom_hline(aes(yintercept=node),color="grey",size=3) +if(NROW(hint)!=0){ + p1=p1+geom_vline(data=hint,aes(xintercept=wakets,color="Hint slots"),show.legend = FALSE,linetype="longdash",size=0.3) +} +p1=p1+geom_linerange(aes(xmin=wakets,xmax=sleepts),size=10) +if(NROW(hint)!=0){ + p1=p1+geom_linerange(data=hint,aes(xmin=wakets,xmax=wakets+duration,color="Hint slots"),size=10) +} +if(NROW(data_rcv)!=0){ + p1=p1+geom_point(data=data_rcv,aes(x=ts,color="Data received"),shape=18,size=4) +} +if(NROW(hint)!=0){ + p1=p1+geom_point(data=hint,aes(x=rcvat,color="Hint received"),shape=18,size=3) +} +if(NROW(hint_fw)!=0){ + p1=p1+geom_point(data=hint_fw,aes(x=ts,color="Hint Forwarded"),shape=18,size=2) +} +p1=p1+ xlab("Time (hours)")+ylab("Node")+ scale_x_continuous(breaks = ts_range, labels=ts_labels)+ scale_colour_manual(name="Legend",values=c("Hint slots"="blue","Data received"="red","Hint received"="green","Hint Forwarded"="purple"))+ |
