R commands:

statusFile <- read.table("status9.csv", sep=",",header=TRUE)
attach(statusFile)
sortedFile <- statusFile[order(dest_host,xfer_time) , ]
attach(sortedFile)
palette(rainbow(11))

plot(attempts,log="y",ylab="# of Transfer Attempts",xlab="Individual Files",col=dest_host, main="CEDPS Data Challenge #3: Attempts (ordered by Destination, Time)\n11 users each transferring 125 200M files from ALCF\nMay 11 2010")
legend("left", c("abe (NCSA TeraGrid, user 1)","ARCS (Australia, user 2)","bigred (IU TeraGrid, user 3)","frost (NCAR TeraGrid, user 4)","lonestar (TACC TeraGrid, user 5)","NERSC DTN01 (LBNL, user 6)","OLCF (ORNL, user 7)", "PADS (UChicago, user 8)","queenbee (LSU TeraGrid, user 9)","ranger (TACC TeraGrid, user 10)","steele (Purdue TeraGrid, user 11)"),cex=0.8, col=rainbow(11),pch=19,title="Destination")
plot(xfer_time/60,ylab="Transfer Time (Minutes)",xlab="Individual Files",col=dest_host,type="h",main="CEDPS Data Challenge #3: Time (ordered by Destination, Time)\n11 users each transferring 125 200M files from ALCF\nMay 11 2010")
legend("top", c("abe (NCSA TeraGrid, user 1)","ARCS (Australia, user 2)","bigred (IU TeraGrid, user 3)","frost (NCAR TeraGrid, user 4)","lonestar (TACC TeraGrid, user 5)","NERSC DTN01 (LBNL, user 6)","OLCF (ORNL, user 7)","PADS (UChicago, user 8)","queenbee (LSU TeraGrid, user 9)","ranger (TACC TeraGrid, user 10)","steele (Purdue TeraGrid, user 11)"),cex=0.8, col=rainbow(11),pch=19,title="Destination")