R commands:

statusFile <- read.table("status12-overview.csv", sep=",",header=TRUE)
attach(statusFile)
sortedTime <- statusFile[order(xfer_time,dest_host) , ]
attach(sortedTime)
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 Transfer Time, Destination)\n11 users transferring a total of 100,000 200MB files from ALCF\nMay 28 2010")
legend("top", c("abe (NCSA TeraGrid user, 125 files)","ARCS (Australian user, 125 files)","bigred (IU TeraGrid user, 125 files)","frost (NCAR TeraGrid user, 125 files)","lonestar (TACC TeraGrid user, 125 files)","NERSC DTN01 (LBNL user, 49,000 files)","OLCF (ORNL user, 1000 files)", "PADS (UChicago user, 49,000 files)","queenbee (LSU TeraGrid user, 125 files)","ranger (TACC TeraGrid user, 125 files)","steele (Purdue TeraGrid user, 125 files)"),cex=0.8, col=rainbow(11),pch=19,title="Destination and Number of Files Transferred",bty="n")

plot(xfer_time/60/60,ylab="Transfer Time (Hours)",xlab="Individual Files",col=dest_host,type="h",main="CEDPS Data Challenge #3: Time (ordered by Transfer Time, Destination)\n11 users transferring a total of 100,000 200MB files from ALCF\nMay 28 2010")
legend("top", c("abe (NCSA TeraGrid user, 125 files)","ARCS (Australian user, 125 files)","bigred (IU TeraGrid user, 125 files)","frost (NCAR TeraGrid user, 125 files)","lonestar (TACC TeraGrid user, 125 files)","NERSC DTN01 (LBNL user, 49,000 files)","OLCF (ORNL user, 1000 files)", "PADS (UChicago user, 49,000 files)","queenbee (LSU TeraGrid user, 125 files)","ranger (TACC TeraGrid user, 125 files)","steele (Purdue TeraGrid user, 125 files)"),cex=0.8, col=rainbow(11),pch=19,title="Destination and Number of Files Transferred",bty="n")