g <- ggplot(data=dat,
            aes(x=DataScope, y=Throughput, colour=Algorithm)) + geom_point(aes(colour=Algorithm)) + facet_grid(~Configuration)