R commands:

x <- c(1,3,6,10) # number of users

xfer <- c(13036,23702,36923,39344) # max(xfer_time) of the first user in each run
plot(x,xfer/60/60,pch=19,xaxt="n",col=rainbow(4),type="b",ylab="Hours",xlab="System Load (Number of Users/Number of Files)",main="CEDPS Data Challenge #3: First User Comparison\nTransfer Time Experienced by the First User Submitting a 10,000-File Request\nFrom ALCF to PADS, Runs #1-4",ylim=c(0,20))
axis(1,1:10,tick=FALSE,labels=c("Run #1\n1/10K","","Run #2\n3/30K","","","Run #3\n6/60K","","","","Run #4\n10/100K"))

xfer2 <- c(13036,23162,45981,72376) # max(xfer_time) of the last user in each run
plot(x,xfer2/60/60,pch=19,xaxt="n",col=rainbow(4),type="b",ylab="Hours",xlab="System Load (Number of Users/Number of Files)",main="CEDPS Data Challenge #3: Last User Comparison\nTransfer Time Experienced by the Last User Submitting a 10,000-File Request\nFrom ALCF to PADS, Runs #1-4",ylim=c(0,20))
axis(1,1:10,tick=FALSE,labels=c("Run #1\n1/10K","","Run #2\n3/30K","","","Run #3\n6/60K","","","","Run #4\n10/100K"))