R commands:

statusFile <- read.table("status12-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 28 2010, Run #12",yaxt="n")
axis(2,at=1:3)
legend("topleft", 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 28 2010, Run #12")
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")