R commands:

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

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)\n3 users transferring 10,000 200M files each from ALCF to PADS\n14 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)\n3 users transferring 10,000 200M files each from ALCF to PADS\n14 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)\n3 users transferring 10,000 200M files each from ALCF to PADS\n14 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)\n3 users transferring 10,000 200M files each from ALCF to PADS\n14 April 2010",type="h")