library(ggplot2)
library(ggthemes)
d <- read.csv(header=TRUE, "~/sort-perf")
d2 <- d[d$test == "set-model", ]
ggplot(d2,aes(x=model.size,y=time,group=model,color=model))+geom_line()+scale_x_continuous(trans="log2")+ggtitle("Set Model")+xlab("Model size")+ylab("Time")

d2 <- d[d$test == "append-half", ]
ggplot(d2,aes(x=model.size,y=time,group=model,color=model))+geom_line()+scale_x_continuous(trans="log2")+ggtitle("Append half")+xlab("Model size")+ylab("Time")


ggplot(d2,aes(x=model.size,y=comparisons,group=model,color=model))+geom_line()+scale_x_continuous(trans="log2")+ggtitle("Append half")+xlab("Model size")+ylab("Comparisons")


ggplot(d2,aes(x=model.size,y=changes,group=model,color=model))+geom_line()+scale_x_continuous(trans="log2")+ggtitle("Append half")+xlab("Model size")+ylab("Changes")

d2 <- d[d$test == "append-10th", ]
ggplot(d2,aes(x=model.size,y=time,group=model,color=model))+geom_line()+scale_x_continuous(trans="log2")+ggtitle("Append 10th")+xlab("Model size")+ylab("Time")