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)
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)