g <- ggplot(data=dat.sub, aes(x=DataScope, y=Throughput, colour=Configuration)) + geom_point() + geom_line()
print(g)