R commands:

statusFile <- read.table("status5.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\n29 April 2010")
legend("topleft", 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 (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),bty="n",pch=19)

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\n29 April 2010")
legend("topleft", 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 (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),bty="n",pch=19)