Commit f4b347fa authored by Stanley Clark's avatar Stanley Clark
Browse files

Jitter

parent 06c14d5e
......@@ -4,8 +4,6 @@ pacman::p_load(stringr, ggplot2, reshape2, tikzDevice, R.devices, gridExtra)
pacman::p_load(plyr, ggallin, formattable, grid, gtable, tidyverse,extrafont)
options(tz = "Europe/Amsterdam")
font_import(pattern="[L/l]ibertine")
source("stats.R")
source("plots.R")
......@@ -37,9 +35,9 @@ grid.arrange(abs1, abs2, abs5, abs10, rel1, rel2, rel5, rel10, nrow = 2)
save_to_tex("stacked_means.tex", stacked_means(), 2.75, 1.4)
save_to_tex("planning_time_joins.tex", diff_plan_time(), 2.75, 1.5)
for (i in c(1, 2, 5, 10)) {
for (i in c(1, 2, 5)) {
diff_name <- paste("diff_execution_time_log-", i, ".tex", sep = "")
rel_name <- paste("rel_diff_execution_time-", i, ".tex", sep = "")
save_to_tex(diff_name, box_db_query_absolute_log(i), 1.8, 1.4)
save_to_tex(rel_name, box_db_query_relative(i), 1.8, 1.4)
save_to_tex(diff_name, box_db_query_absolute_log(i), 2.7, 1.5)
save_to_tex(rel_name, box_db_query_relative(i), 2.7, 1.5)
}
......@@ -48,6 +48,7 @@ box_db_query_absolute_log <- function(scale) {
box_db_query_relative <- function(scale) {
ggplot(stats$rel_diff[stats$rel_diff$scale == scale, ], aes(x = db, y = query)) +
geom_boxplot(outlier.size = 0.1) +
geom_point(size = 0.1, color='#2c7fb8') +
ggplot_theme +
geom_vline(xintercept = 0, linetype = "dotted") +
scale_x_continuous(labels = latex_percent) +
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment