R commands:

statusFile <- read.table("events6.csv", sep=",",header=TRUE)
attach(statusFile)

counts2 <- table(description,name)
barplot(counts2,col=rainbow(4),main="CEDPS Data Challenge #3: Event Summary\n10 users each transferring 100 200M files from ALCF\n30 April 2010, Run #6",xlab="Event Type",ylab="Count")