R commands:

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

barplot(counts2,col=rainbow(2),main="CEDPS Data Challenge #3: Event Summary\n8 users each transferring 125 200MB files from ALCF\n19 May 2010, Run #11",xlab="Event Type",ylab="Count")