R commands:

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

barplot(counts2,col=rainbow(4),main="CEDPS Data Challenge #3: Event Summary\nSingle user transferring 100 200M files from ALCF to Steele\n 30 April 2010, Run #7",xlab="Event Type",ylab="Count")
legend("top",c("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("purple","green","cyan","red"),title="Event Description",cex=0.8)