R commands:

eventsFile <- read.table("events8-steele.csv", sep=",",header=TRUE)
attach(eventsFile)
counts2 <- table(description,name)

barplot(counts2,col=rainbow(6),main="CEDPS Data Challenge #3: Event Summary\nSingle user transferring 125 200M files from ALCF to Purdue steele\n 7 May 2010, Run #8",xlab="Event Type",ylab="Count")
legend("topleft",c("Another transfer in the batch experienced a failure","The deadline has expired","The transfer was started or re-started","the transfer successfully completed","The transfer took too long","The transfer ended in an unknown state"),pch=19,col=c("magenta","red","blue","green","cyan","yellow"),title="Event Description",cex=0.8)