library(dplyr)
library(ggplot2)
library(ggthemes)

theme <- theme_few(base_size = 24) + 
theme(axis.title.y=element_text(vjust=0.9), 
  axis.title.x=element_text(vjust=-0.1),
  axis.ticks.x=element_blank())


read.table("11.csv", header=T,  sep=",", stringsAsFactors=F, na.strings=c("-1", "")) %>% filter(db=="netcat") -> dd3


dd3 %>% filter(bin_chunksize==100000, tuple > 1000) %>% group_by(system, tuple) %>% summarise_each(funs(mean,sd,se=sd(.)/sqrt(n()))) -> dd4

ggplot(dd4 , aes(color=system, y=time_mean, x=tuple)) + geom_line(size=1.5) + geom_point(size=2) + scale_x_log10() + scale_y_log10()





ggplot(dd4, aes(fill=system, y=bytes_mean, x=tuple)) + scale_x_log10() +  geom_bar(stat="identity", position="dodge") 




dd3 %>% filter(bin_compress %in% c("lz4", NA, "snappy"), tuple ==  1000000) %>% group_by( bin_orientation, bin_compress,bin_chunksize) %>% summarise_each(funs(mean,sd,se=sd(.)/sqrt(n()))) %>% mutate(sys2=paste( bin_orientation, bin_compress)) -> df4 

ggplot(df4, aes(fill=sys2, y=time_mean, x=bin_chunksize)) + geom_bar(stat="identity", position="dodge") + scale_x_log10()