Talk:Ladle/Statistics
From Armagetron
http://wiki.armagetronad.org/index.php/Ladle/Statistics#Individual_stats
Script to generate plot (use http://www.rstudio.com/)
require(ggplot2) require(scales) list <- sapply(list( newb=c(1,4,6,9,11,21,24,33,34,35), dlh=c(6,9,18,19,33,34,35,55,56,61), dread=c(22,37,39,42,48,51,54,55,56,61,65,66,69,73,74), titan=c(33,38,43,46,60,63,70), eckz=c(41,49,51,54,57,58,59,62,65,66), flex=c(12,13,15,18,19,26,29,30,31,36,50,52), woned=c(16,20,25,32,37,39,40,42,53,71,72), emmy=c(16,20,25,32,37,39,40,42), gonzap=c(20,32,37,39,40,42,53,71,72), b3er=c(25,32,37,39,40,42,53,71,72), mazuff=c(4,6,9,11,18,19,33,34,48), lacka=c(3,9,11,14,18,34,35,38,43,60,63,64), fofo=c(12,13,15,27,29,30,31,36,46,48,50,52,57,58,75), hoax=c(12,13,15,22,23,28,44,45,50,55,56,61,75), durka=c(8,10,14,17,22,23,28,44,45,61), xyron=c(21,24,27,32,33,37,39,40,42,50,55,56,61), viper=c(7,24,27,29,30,31,36,46) ),sort) data <- data.frame(p=rep(paste(names(list)," (",sapply(list,length),")",sep=""),times=sapply(list,length)), ladle=unlist(list,use.names=F), c=unlist(sapply(list,function(x)(1:length(x))),use.names=F)) bre <- unique(c(seq(from=1,to=max(data$c),by=5),max(data$c))) ggplot(data) + geom_point(aes(x=ladle,y=reorder(p,ladle),size=c,colour=c),shape=9) + scale_colour_gradient('wins', guide="legend", breaks=bre) + scale_size_area('wins',breaks=bre) + theme(axis.title.y=element_blank(),panel.grid.minor=element_blank(),axis.ticks.x=element_blank(),axis.ticks.y=element_blank()) + scale_x_continuous(breaks=c(1,seq(from=12,to=max(data$ladle),by=12)))