diff --git a/plot.R b/plot.R index 1f6adf210e4cbc5564ac19cca22e5ee0297384a3..a2e49ad5451fc93395593e4682419df307d4e0f6 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),