R commands:

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

plot(attempts,log="y",ylab="# of Transfer Attempts",xlab="Individual Files",col=dest_host, main="CEDPS Data Challenge #3: Attempts (ordered by Destination, Time)\n10 users each transferring 100 200M files from ALCF\n30 April 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)","PADS (UChicago, user 7)","queenbee (LSU TeraGrid, user 8)","ranger (TACC TeraGrid, user 9)","steele (Purdue TeraGrid, user 10)"),cex=0.8, col=rainbow(10),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)\n10 users each transferring 100 200M files from ALCF\n30 April 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)","PADS (UChicago, user 7)","queenbee (LSU TeraGrid, user 8)","ranger (TACC TeraGrid, user 9)","steele (Purdue TeraGrid, user 10)"),cex=0.8, col=rainbow(10),pch=19,title="Destination")