R commands:

statusFile <- read.table("status12-nersc.csv", sep=",",header=TRUE)
attach(statusFile)
sortedFile <- statusFile[order(xfer_time) , ]
attach(sortedFile)

plot(attempts,col=rainbow(11)[6],ylab="# of Transfer Attempts",xlab="Individual Files",main="CEDPS Data Challenge #3: Attempts (ordered by Transfer Time)\n1 user transferring 49,000 200M files from ALCF to NERSC\n28 May 2010, Run #12",yaxt="n")
axis(2,at=1:3)

plot(xfer_time/60/60,ylab="Transfer Time (Hours)",xlab="Individual Files",col=rainbow(11)[6],main="CEDPS Data Challenge #3: Time (ordered by Transfer Time)\n1 user transferring 49,000 200M files from ALCF to NERSC\n28 May 2010, Run #12",type="h")