|
@@ -27,6 +27,33 @@ se <- function(x) sqrt(var(x)/length(x))
|
|
|
|
|
|
|
|
|
|
|
|
# survey
|
|
|
d <- all %>% filter(exp=="survey") %>% group_by(sys, s, conf) %>%
|
|
|
summarize(meant=mean(timesec), se=se(timesec)) %>%
|
|
|
mutate(tool=paste(sys,conf),
|
|
|
datasize=sapply(s, switch, alabama=47512, california=1060060, acs3yr=9093077)) %>%
|
|
|
filter(tool == "Renjin jitopt" | sys != "Renjin")
|
|
|
|
|
|
print(d %>% select(sys,s,meant) %>% arrange(s))
|
|
|
|
|
|
limits <- aes(ymax = meant + se, ymin=meant - se, width=2)
|
|
|
|
|
|
pdf("survey.pdf",width=10,height=7)
|
|
|
ggplot(d,aes(datasize,meant,group=tool)) +
|
|
|
geom_point(size=4) + geom_line(size=1.5, aes(group=tool, linetype=tool)) +
|
|
|
geom_pointrange(limits) +
|
|
|
#scale_y_log10(breaks=ybreaks, labels=ylabels) +
|
|
|
scale_x_log10(breaks=c(47512,1060060,9093077)) +
|
|
|
|
|
|
xlab("Dataset Size (elements, log scale)") + ylab("Execution Time (s)") + theme +
|
|
|
annotate("text", x=10^6.6, y=45, label="GNU R", family="serif", size=10)+
|
|
|
annotate("text", x=10^6.4, y=100, label="sqlsurvey", family="serif", size=10)+
|
|
|
annotate("text", x=10^6.8, y=15, label="Renjin", family="serif", size=10)
|
|
|
|
|
|
#scale_color_brewer(palette=cBrwPl) +
|
|
|
#guides(colour=guide_legend(keywidth=3.5))
|
|
|
|
|
|
dev.off()
|
|
|
|
|
|
|
|
|
|
|
@@ -79,7 +106,6 @@ dev.off()
|
|
|
# dev.off()
|
|
|
|
|
|
|
|
|
stop()
|
|
|
# recycling
|
|
|
d <- all %>% filter(exp=="recycling", s > 5) %>% group_by(exp, sys, s, conf) %>%
|
|
|
summarize(meant=mean(timesec), se=se(timesec)) %>%
|
|
@@ -105,33 +131,6 @@ p <- ggplot(d,aes(datasize,meant,group=tool)) +
|
|
|
print(p)
|
|
|
dev.off()
|
|
|
|
|
|
# survey
|
|
|
d <- all %>% filter(exp=="survey") %>% group_by(sys, s, conf) %>%
|
|
|
summarize(meant=mean(timesec), se=se(timesec)) %>%
|
|
|
mutate(tool=paste(sys,conf),
|
|
|
datasize=sapply(s, switch, alabama=47512, california=1060060, acs3yr=9093077)) %>%
|
|
|
filter(tool == "Renjin jitopt" | sys != "Renjin")
|
|
|
|
|
|
print(d)
|
|
|
|
|
|
limits <- aes(ymax = meant + se, ymin=meant - se, width=2)
|
|
|
|
|
|
pdf("survey.pdf",width=10,height=7)
|
|
|
ggplot(d,aes(datasize,meant,group=tool)) +
|
|
|
geom_point(size=4) + geom_line(size=1.5, aes(group=tool, linetype=tool)) +
|
|
|
geom_pointrange(limits) +
|
|
|
#scale_y_log10(breaks=ybreaks, labels=ylabels) +
|
|
|
scale_x_log10(breaks=c(47512,1060060,9093077)) +
|
|
|
|
|
|
xlab("Dataset Size (elements, log scale)") + ylab("Execution Time (s)") + theme +
|
|
|
annotate("text", x=10^6.6, y=45, label="GNU R", family="serif", size=10)+
|
|
|
annotate("text", x=10^6.4, y=100, label="sqlsurvey", family="serif", size=10)+
|
|
|
annotate("text", x=10^6.8, y=15, label="Renjin", family="serif", size=10)
|
|
|
|
|
|
#scale_color_brewer(palette=cBrwPl) +
|
|
|
#guides(colour=guide_legend(keywidth=3.5))
|
|
|
|
|
|
dev.off()
|
|
|
|
|
|
|
|
|
# # identity
|
|
@@ -163,7 +162,7 @@ dev.off()
|
|
|
|
|
|
# pushdown
|
|
|
|
|
|
d <- all %>% filter(exp=="pushdown", s > 4) %>% group_by(exp, sys, s) %>%
|
|
|
d <- all %>% filter(exp=="pushdown", s > 5) %>% group_by(exp, sys, s) %>%
|
|
|
summarize(meant=mean(timesec), se=se(timesec)) %>%
|
|
|
mutate(tool=sys, datasize=10^as.integer(s))
|
|
|
|
|
@@ -179,7 +178,7 @@ p <- ggplot(d,aes(datasize,meant,group=tool)) +
|
|
|
scale_x_log10(breaks=xbreaks, labels=xlabels) +
|
|
|
|
|
|
xlab("Dataset Size (elements, log scale)") + ylab("Execution Time (s)") + theme +
|
|
|
annotate("text", x=10^7.5, y=5, label="GNU R", family="serif", size=10)+
|
|
|
annotate("text", x=10^7.6, y=5, label="GNU R", family="serif", size=10)+
|
|
|
annotate("text", x=10^7.6, y=.4, label="Renjin ", family="serif", size=10)
|
|
|
|
|
|
print(p)
|