library(ggplot2)
library(sqldf)
library(plyr)
library(dplyr)

d <- read.csv("../../donar-res/tmp_light/boxplot1.csv")
d$strat <- as.factor(d$strat)
d$window <- as.factor(d$window)
#d$decile <- factor(d$decile, levels = c("MIN", "D0.1", "D1", "D25", "D50", "D75", "D99", "D99.9"))
d$decile <-factor(d$decile,levels=c("MAX", "D99.9", "D99", "D75", "D50", "D25", "D1", "D0.1", "MIN"))
d <- d %>% mutate (lat = latency / 1000)
ggplot(sqldf("select * from d where decile != 'MAX'") %>% arrange(decile), aes(x=strat:window,y=lat,group=decile,fill=decile)) +
  geom_bar(stat='identity', position='identity') +
  scale_fill_grey() +
  geom_hline(yintercept = 200) +
  geom_hline(yintercept = 400) +
  theme_classic()

e <- read.csv("../../donar-res/tmp_light/boxplot2.csv")
e$strat <- as.factor(e$strat)
e$links <- as.factor(e$links)
e$decile <-factor(e$decile,levels=c("MAX", "D99.9", "D99", "D75", "D50", "D25", "D1", "D0.1", "MIN"))
e <- e %>% mutate (lat = latency / 1000)
ggplot(sqldf("select * from e where decile != 'MAX'") %>% arrange(decile), aes(x=strat:links,y=lat,group=decile,fill=decile)) +
  geom_bar(stat='identity', position='identity') +
  scale_fill_grey() +
  geom_hline(yintercept = 200) +
  geom_hline(yintercept = 400) +
  theme_classic()