+library("ggplot2")
+library(reshape2)
+
+setwd("~/work/Cipher_code/OneRoundIoT/")
+
+openrpi3=read.csv('execution_openssl_rpi0.txt',sep="\t",header=F)
+onerpi3=read.csv('execution_oneround_rpi0.txt',sep="\t",header=F)
+
+openrpi3=openrpi3[c(1,2,3,5)]
+onerpi3=onerpi3[c(2,3,5)]
+
+res=data.frame(openrpi3,onerpi3)
+names(res)=c("Buffer","OpenSSL enc CBC","OpenSSL dec CBC", "OpenSSL (en|de)c CTR", "OneRound enc DECB", "OneRound dec DECB", "OneRound (en|de)c CTR")
+
+
+
+
+
+df2 <- melt(data = res, id.vars = 1)
+
+names(df2)[2]="Legend"
+#names(df2)[3]="Accuracy"
+
+
+#g=ggplot(res, aes(iteration)) +
+# geom_line(aes(y = test, colour = "testing accuracy")) +
+# geom_line(aes(y = train, colour = "training accuracy"))+
+
+g=ggplot(data = df2, aes(x=Buffer, y=value)) + geom_line(aes(colour=Legend)) +
+ scale_x_continuous("Buffer size",trans="log10") +
+ scale_y_continuous("Bytes per second",trans="log10",breaks=seq(1e7,2e8,1e7))+
+ theme(legend.position="top")+
+ annotation_logticks()
+
+
+ggsave("execution_rpi0.pdf",width = 15, height = 10, units = "cm")
+
+print(g)