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

Analysis

parent f4b347fa
% Created by tikzDevice version 0.12.3.1 on 2021-03-31 18:42:19
% Created by tikzDevice version 0.12.3.1 on 2021-04-07 11:08:12
% !TEX encoding = UTF-8 Unicode
\begin{tikzpicture}[x=1pt,y=1pt]
\definecolor{fillColor}{RGB}{255,255,255}
......
% Created by tikzDevice version 0.12.3.1 on 2021-03-31 18:42:22
% Created by tikzDevice version 0.12.3.1 on 2021-04-07 11:10:25
% !TEX encoding = UTF-8 Unicode
\begin{tikzpicture}[x=1pt,y=1pt]
\definecolor{fillColor}{RGB}{255,255,255}
......
% Created by tikzDevice version 0.12.3.1 on 2021-03-31 18:42:26
% Created by tikzDevice version 0.12.3.1 on 2021-04-07 11:10:33
% !TEX encoding = UTF-8 Unicode
\begin{tikzpicture}[x=1pt,y=1pt]
\definecolor{fillColor}{RGB}{255,255,255}
......
......@@ -48,7 +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') +
geom_jitter(size = 0.1, color='#2c7fb8') +
ggplot_theme +
geom_vline(xintercept = 0, linetype = "dotted") +
scale_x_continuous(labels = latex_percent) +
......
......@@ -106,3 +106,12 @@ get_stats <- function(results, queries = c(3, 7, 11, 19, 25, 26, 46, 90, 96)) {
meansuseridquery = meansuseridquery
))
}
get_percentage <- function(meansuseridquery) {
dat <- meansuseridquery
dat <- dat[dat$variable %in% c("combine", "plan", "db"), ]
dat <- ddply(dat,.(case,scale), transform, total = value/sum(value) * 100)
return(dat)
}
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