d <- read.table('probs.txt') points <- d[,1] advance <- d[,2] advanceNoTie <- d[,3] png('advance.png', width=600, height=600) plot(points, advance, ylim=c(0.0,100.0), xlim=c(min(points), max(points)), pch=15, col='blue', type="o", xlab="# of points", ylab="") points(points, advanceNoTie, ylim=c(0.0,100.0), xlim=c(min(points), max(points)), pch=15, col='red', type="o") abline(v=c(2,4,6,8), lty=2, col='gray') abline(h=c(0,20,40,60,80,100), lty=2, col='gray') legend("topleft", inset=.05, c('% to advance', '% to advance no tie'), fill=c('blue', 'red'))