R commands: attempts <- c(1,1,1,1,1,8,110,7,1,1,1) # mean attempts labels <- c("abe user 125 files","ARCS user 125 files","bigred user 125 files","frost user 125 files","lonestar user 125 files","NERSC user 49,000 files","OLCF user 1,000 files","PADS user 49,000 files","queenbee user 125 files","ranger user 125 files","steele user 125 files") dotchart(attempts,pch=19,labels=labels,col=c(rainbow(3)[1],rainbow(3)[1],rainbow(3)[1],rainbow(3)[1],rainbow(3)[1],rainbow(3)[3],rainbow(3)[2],rainbow(3)[3],rainbow(3)[1],rainbow(3)[1],rainbow(3)[1]), main="CEDPS Data Challenge #3: Mean Attempts\n11 users transferring a total of 100,000 200MB files from ALCF\nMay 19 2010, Run #11",xlab="Average Number of Transfer Attempts Per File") attempts <- c(1,1,1,1,1,1,116,5,1,1,1) # mean attempts labels <- c("abe user 125 files","ARCS user 125 files","bigred user 125 files","frost user 125 files","lonestar user 125 files","NERSC user 49,000 files","OLCF user 1,000 files","PADS user 49,000 files","queenbee user 125 files","ranger user 125 files","steele user 125 files") dotchart(attempts,pch=19,labels=labels,col=c(rainbow(3)[1],rainbow(3)[1],rainbow(3)[1],rainbow(3)[1],rainbow(3)[1],rainbow(3)[3],rainbow(3)[2],rainbow(3)[3],rainbow(3)[1],rainbow(3)[1],rainbow(3)[1]), main="CEDPS Data Challenge #3: Mean Attempts\n11 users transferring a total of 100,000 200MB files from ALCF\nMay 28 2010, Run #12",xlab="Average Number of Transfer Attempts Per File")