R commands:

statusFile <- read.table("events11-nersc.csv", sep="^",header=TRUE)
attach(statusFile)
palette(rainbow(12))
counts2 <- table(description,name)

barplot(counts2,col=rainbow(5),main="CEDPS Data Challenge #3: Event Summary\nSingle user transferring 49,000 200MB files from ALCF to NERSC\n19 May 2010, Run #11",xlab="Event Type",ylab="Count")
legend("topleft",c("Another transfer in the batch failed","Could not access the file","Transfer was started or re-started","Transfer successfully completed","Transfer ended in an unknown state"),pch=19,col=c(rainbow(5)[5],rainbow(5)[1],rainbow(5)[4],rainbow(5)[3],rainbow(5)[2]),title="Event Description",cex=0.8,bty="n")