require(ggplot2)
require(scales)
require(dplyr)

df <- read.csv("/tmp/d8d7.csv")
df$path <- sapply(df$path, function(x) gsub("/d8bench", "", x))

ggplot(df, aes(version, time, colour = version)) + geom_boxplot() + scale_y_continuous(breaks = pretty_breaks(20)) + 
    labs(y = "ms") + facet_wrap(~path, scales = "free_y") + theme_bw(base_size = 16)

plot of chunk unnamed-chunk-1

summary <- df %.% group_by(path, version) %.% summarise(min = min(time), median = median(time), 
    max = max(time))

summary
## Source: local data frame [8 x 5]
## Groups: path
## 
##             path version     min  median     max
## 1              /      d7 1343.81 1368.85 1846.39
## 2              /      d8 4516.46 4573.32 5301.23
## 3    /node/10000      d7   18.73   22.44   38.44
## 4    /node/10000      d8   91.82  104.99  139.34
## 5       /user/20      d7   17.78   20.40   30.54
## 6       /user/20      d8   75.43   81.21  116.24
## 7 /user/password      d7   14.94   17.21   35.69
## 8 /user/password      d8   60.07   65.96  103.16

ggplot(summary, aes(path, median, group = version, colour = version)) + geom_line() + 
    theme_bw(base_size = 16)

plot of chunk unnamed-chunk-2