g <- ggplot(data=dat, aes(x=DataScope, y=Throughput, colour=Configuration, shape=Algorithm)) + geom_point(size=3) + geom_line() + scale_x_log10()