R commands:

statusFile <- read.table("status3.csv", sep=",",header=TRUE)
attach(statusFile)
palette(rainbow(6))

sortedTime <- statusFile[order(xfer_time) , ]
attach(sortedTime)
plot(attempts,col=group,ylab="# of Transfer Attempts",xlab="Individual Files",main="CEDPS Data Challenge #3: Attempts (ordered by Transfer Time)\n6 users transferring 10,000 200M files each from ALCF to PADS\n15 April 2010")
plot(xfer_time/60/60,ylab="Transfer Time (Hours)",xlab="Individual Files",col=group,main="CEDPS Data Challenge #3: Time (ordered by Transfer Time)\n6 users transferring 10,000 200M files each from ALCF to PADS\n15 April 2010",type="h")

sortedGroup <- sortedTime[order(group,xfer_time) , ]
attach(sortedGroup)
plot(attempts,col=group,ylab="# of Transfer Attempts",xlab="Individual Files",main="CEDPS Data Challenge #3: Attempts (ordered by User, Time)\n6 users transferring 10,000 200M files each from ALCF to PADS\n15 April 2010")
plot(xfer_time/60/60,ylab="Transfer Time (Hours)",xlab="Individual Files",col=group,main="CEDPS Data Challenge #3: Time (ordered by User, Time)\n6 users transferring 10,000 200M files each from ALCF to PADS\n15 April 2010",type="h")