R commands:

throughput <- c(663,678,709,658,622) # (number of files * 209715200*8)/(as.numeric(max(ct)-min(rt))*60*60)/1024/1024
labels <- c("Run 12: 100,000 total transfer requests","Run 11: 100,000 total transfer requests","Run 10: 1,375 total transfer requests","Run 9: 1,375 total transfer requests","Run 8: 1,375 total transfer requests")
dotchart(throughput,pch=19,labels=labels,col=c(rainbow(6)[1],rainbow(6)[6],rainbow(6)[3],rainbow(6)[4],rainbow(6)[5]), main="CEDPS Data Challenge #3: Throughput Comparison\nAverage Throughput Experienced by 125-File Users",xlab="Mbps",xlim=c(0,800))