ex1.R

library(ggplot2)
library(plyr)
library(reshape2)
library(grid)
library(gridExtra)

sysbench_oltp<-read.table("r_ggplot2_benchmark_visualization/sysbench_simple.txt",sep=",",as.is=T,header=F)
colnames(sysbench_oltp)<-c("time","storage","ro_rw","threads","metric","value")

# sysbench_throughput
sysbench_tps<-subset(sysbench_oltp,metric=="sysbench_tps" & threads=="256" & ro_rw=="rw" & storage=='eXFlash DIMM_8')
sysbench_tps$value<-as.numeric(sysbench_tps$value)
sysbench_tps_summ<-ddply(sysbench_tps,c("storage","threads","ro_rw"),
                         summarize,sd_throughput=sd(value),
                         mean_throughput=mean(value),
                         t95th_percentile_throughput=quantile(value, 0.95),
                         max_throughput=max(value))

tps_graph<-ggplot(sysbench_tps)
tps_graph<-tps_graph+aes(x=time,y=value)
tps_graph<-tps_graph+geom_line()
tps_graph

ggsave(plot = tps_graph, "r_ggplot2_benchmark_visualization/ex1.png", dpi=200, scale=1, height=6, width=6, type = "cairo-png")