limits <- aes(ymax = meant + se, ymin=meant - se, width=2)

pdf("parallel.pdf",width=10,height=7)

p <- ggplot(d,aes(threads,meant,group=sys)) + 

  geom_point(size=4) + geom_line(size=1.5, aes(group=sys, linetype=sys)) +

  geom_pointrange(limits) +

  scale_y_continuous(limits=c(0,NA)) +

   scale_x_continuous(breaks=unique(d$threads)) +

 geom_vline(xintercept = 10) +

	xlab("Number of Threads") + ylab("Execution Time (s)") + theme +

		annotate("text", x=13.1, y=1.5, label="Problem parallelism", family="serif", size=10) +

print(p)

dev.off()

# f <- d %>% group_by(exp, sys, s) %>% summarize(maxmt=max(meant))

# d <- d %>% left_join(f) %>% mutate(speedup = maxmt/meant) %>% select(s,threads,speedup)

# print(d)