R commands:

statusFile <- read.table("events10-pads.csv",sep="^",header=TRUE)
attach(statusFile)
palette(rainbow(11))
counts2 <- table(description,name)

barplot(counts2,col=rainbow(4),main="CEDPS Data Challenge #3: Event Summary\nSingle user transferring 125 200MB files from ALCF to PADS\n18 May 2010, Run #10",xlab="Event Type",ylab="Count")
legend("topright",c("Abnormal end of transfer","The transfer was started or re-started","The transfer successfully completed","The transfer ended in an unknown state"),pch=19,col=c(rainbow(4)[1],rainbow(4)[4],rainbow(4)[3],rainbow(4)[2]),title="Event Description",cex=0.8,bty="n")