diff --git a/newproto.R b/newproto.R
index 50bb70157b64e0008edd0f23f9d04627a5772f5f..d3fff6c21b060144230a74f24cfe7e6ad550ffad 100644
--- a/newproto.R
+++ b/newproto.R
@@ -23,6 +23,9 @@ ggplot(dd3 %>% filter(bin_chunksize==100000, tuple > 1000, run == 0), aes(color=
 ggplot(dd3 %>% filter(bin_chunksize==100000, tuple > 1000, run == 0), aes(fill=system, y=bytes, x=tuple)) + scale_x_log10() +  geom_bar(stat="identity", position="dodge") 
 
 
-dd3 %>% filter(bin_compress %in% c("lz4", NA), 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(color=sys2, y=packets_mean, x=bin_chunksize)) + geom_line(size=1.5) + geom_point(size=2) + scale_x_log10()
+read.table("newproto2.csv", header=T,  sep=",", stringsAsFactors=F, na.strings=c("-1", "")) -> dd3
+
+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()