R commands:

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

barplot(counts2,col=c(rainbow(8)[1],rainbow(8)[4],rainbow(8)[5],rainbow(8)[2],rainbow(8)[8],rainbow(8)[7],rainbow(8)[6],rainbow(8)[3]),main="CEDPS Data Challenge #3: Event Summary\n11 users transferring 100,000 200MB files from ALCF\n28 May 2010, Run #12",xlab="Event Type",ylab="Count")
legend("topleft",c("Abnormal end of transfer","Another transfer in the batch failed","A CA error occurred","The endpoint may be experiencing trouble","Could not access the file","The transfer was started or re-started","The transfer successfully completed","The transfer ended in an unknown state"),pch=19,col=c(rainbow(8)[1],rainbow(8)[3],rainbow(8)[4],rainbow(8)[2],rainbow(8)[5],rainbow(8)[6],rainbow(8)[7],rainbow(8)[8]),title="Event Description",cex=0.8,bty="n")