From 3ed43e4bdbe8308608671f8e490d890f3c780a29 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hannes=20M=C3=BChleisen?= <hannes@muehleisen.org> Date: Sun, 6 Apr 2014 16:06:02 +0200 Subject: [PATCH] minor changes --- plot.R | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/plot.R b/plot.R index 1f6adf2..a2e49ad 100644 --- a/plot.R +++ b/plot.R @@ -6,25 +6,21 @@ library(plyr) setwd("~/Desktop/compare/") textsize <- 16 -cBrwPl <- "Set1" theme <- theme_few(base_size = textsize) + theme(axis.text.x = element_text(angle = 90, hjust = 1), - # text=element_text(family="serif"), legend.title=element_blank(), legend.position=c(0.85,0.08)) - compare <- read.table("results.tsv",sep="\t",na.strings="") names(compare) <- c ("db","dbver","bmark","sf","phase","q","rep","time") +# we have a 30 min time limit, so everything over that is a fail +compare[compare$time>1800,]$time <- NA + levels(compare$db) <- c("Citusdata","MonetDB","PostgreSQL") compare$db <- ordered(compare$db,levels=c("PostgreSQL","Citusdata","MonetDB")) levels(compare$q) <- toupper(levels(compare$q)) -# title="Query Speed (Hot)",subtitle="TPC-H SF5 (5.2 GB)"), -# title="Query Speed (Hot)",subtitle="TPC-H SF10 (11 GB)")) - - tpcplot <- function(data,filename="out.pdf",sf=1,phase="hotruns",queries=levels(data$q),width=8,ylimit=100,main="",sub="") { pdata <- ddply(data[which(data$sf == as.character(sf) & data$phase==as.character(phase)),], c("db", "q"), summarise, avgtime = mean(time), -- GitLab