R commands: eventsFile <- read.table("events8-bigred.csv", sep=",",header=TRUE) attach(eventsFile) counts2 <- table(description,name) barplot(counts2,col=rainbow(3),main="CEDPS Data Challenge #3: Event Summary\nSingle user transferring 125 200M files from ALCF to IU bigred\n 7 May 2010, Run #8",xlab="Event Type",ylab="Count") legend("topleft",c("The deadline has expired","The transfer was started or re-started","The transfer ended in an unknown state"),pch=19,col=c("red","blue","green"),title="Event Description",cex=0.8)