R commands:

statusFile <- read.table("status11-125only.csv", sep=",",header=TRUE)
attach(statusFile)
sortedTime <- statusFile[order(dest_host,xfer_time) , ]
attach(sortedTime)
palette(rainbow(8))

plot(attempts,ylab="# of Transfer Attempts",xlab="Individual Files",col=dest_host, main="CEDPS Data Challenge #3: Attempts (ordered by Destination, Time)\n8 users each transferring 125 200MB files from ALCF\nMay 19 2010, Run #11",yaxt="n")
axis(2,at=1:3)
legend("top", c("abe (NCSA TeraGrid user)","ARCS (Australian user)","bigred (IU TeraGrid user)","frost (NCAR TeraGrid user)","lonestar (TACC TeraGrid user)","queenbee (LSU TeraGrid user)","ranger (TACC TeraGrid user)","steele (Purdue TeraGrid user)"),cex=0.8, col=rainbow(8),pch=19,title="Destination",bty="n")

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)\n8 users each transferring 125 200MB files from ALCF\nMay 19 2010")
legend("top", c("abe (NCSA TeraGrid user)","ARCS (Australian user)","bigred (IU TeraGrid user)","frost (NCAR TeraGrid user)","lonestar (TACC TeraGrid user)","queenbee (LSU TeraGrid user)","ranger (TACC TeraGrid user)","steele (Purdue TeraGrid user)"),cex=0.8, col=rainbow(8),pch=19,title="Destination",bty="n")