Talk:Ladle/Statistics - Revision history

01101110 at 07:10, 6 May 2014

2014-05-06T07:10:15Z

← Older revision		Revision as of 03:10, 6 May 2014
Line 12:		Line 12:

	data <- list(		data <- list(
	~~dread~~ =c(22,37,39,42,48,51,54,55,56,61,65,66,69,73,74,76,78),		dreadlord =c(22,37,39,42,48,51,54,55,56,61,65,66,69,73,74,76,78),
	fofo =c(12,13,15,27,29,30,31,36,46,48,50,52,57,58,75),		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),		hoax =c(12,13,15,22,23,28,44,45,50,55,56,61,75),
	xyron =c(21,24,27,32,33,37,39,40,42,50,55,56,61),		xyron =c(21,24,27,32,33,37,39,40,42,50,55,56,61),
			woned =c(16,20,25,32,37,39,40,42,53,71,72,80),
	lacka =c(03,09,11,14,18,34,35,38,43,60,63,64),		lacka =c(03,09,11,14,18,34,35,38,43,60,63,64),
	flex =c(12,13,15,18,19,26,29,30,31,36,50,52),		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),		olive =c(21,24,27,33,34,38,43,55,56,61,78),
			beer =c(25,32,37,39,40,42,53,71,72,80,81),
			gonzap =c(20,32,37,39,40,42,53,71,72,80,81),
	eckz =c(41,49,51,54,57,58,59,62,65,66),		eckz =c(41,49,51,54,57,58,59,62,65,66),
	dlh =c(06,09,18,19,33,34,35,55,56,61),		dlh =c(06,09,18,19,33,34,35,55,56,61),
	durka =c(08,10,14,17,22,23,28,44,45,61),		durka =c(08,10,14,17,22,23,28,44,45,61),
	~~newb~~ =c(01,04,06,09,11,21,24,33,34,35),		newbie =c(01,04,06,09,11,21,24,33,34,35),
	~~olive~~ =c(~~21,24,27,33,38,43,55,56,61,78),~~		gazelle =c(53,62,68,69,73,74,76,77,79),
	~~gonzap =c(20,32,37,39,40,42,~~53,71,~~72)~~,
	~~b3er =c(25~~,32,37,~~39,40,42,53~~,71,72),
	freako =c(14,17,21,24,27,34,41,55,56),		freako =c(14,17,21,24,27,34,41,55,56),
	mazuff =c(04,06,09,11,18,19,33,34,48),		mazuff =c(04,06,09,11,18,19,33,34,48),
	vov =c(57,65,66,69,73,74,76,78),		vov =c(57,65,66,69,73,74,76,78),
	~~gazelle =c(53,62,68,69,73,74,76,77),~~
	viper =c(07,24,27,29,30,31,36,46),		viper =c(07,24,27,29,30,31,36,46),
	emmy =c(16,20,25,32,37,39,40,42),		emmy =c(16,20,25,32,37,39,40,42),
			wap =c(37,40,42,53,71,72,80,81),
	titan =c(33,38,43,46,60,63,70),		titan =c(33,38,43,46,60,63,70),
	soul =c(65,66,69,73,74,76,78),		soul =c(65,66,69,73,74,76,78),
	~~wap~~ =c(37,40,42,53,71,72),		mister =c(59,62,68,75,78,79,81),
	poke =c(38,43,60,63,64,70),		poke =c(38,43,60,63,64,70),
	psyko =c(07,11,26,29,30,36),		psyko =c(07,11,26,29,30,36),
	kult =c(73,74,76,78),		kult =c(73,74,76,78),
	over =c(63,64,70,71),		over =c(63,64,70,71),
			"J-Dawgg" =c(71,72,80),
	orion =c(36,78),		orion =c(36,78),
	~~jdawg =c(71,72),~~
	fippmam =c(62,67),		fippmam =c(62,67),
	magi =c(67)		magi =c(67)
Line 73:		Line 74:
	xlab(paste("Ladle dominance (",at_least,"+) in the last ",months_ago," months since L",last_ladle,"\n", "(updated ", format(Sys.time(), "%Y/%m/%d"),")",sep=""))}		xlab(paste("Ladle dominance (",at_least,"+) in the last ",months_ago," months since L",last_ladle,"\n", "(updated ", format(Sys.time(), "%Y/%m/%d"),")",sep=""))}

	### SAVE PLOTS		### SAVE GENERATE PLOTS
	ggsave("ladle_wins.png", plot_ladle_wins(), width=14, height=7, dpi=72, type="cairo-png")		ggsave("ladle_wins.png", plot_ladle_wins(), width=14.5, height=7.5, dpi=72, type="cairo-png")
	ggsave("ladle_dominance.png", plot_ladle_dominance(), width=14, height= ~~3.5~~, dpi=72, type="cairo-png")		ggsave("ladle_dominance.png", plot_ladle_dominance(), width=14.5, height=4, dpi=72, type="cairo-png")

	3. Run the script. Two png plots will be saved		3. Run the script. Two png plots will be saved

Newbie: /* Instructions for generating the plots for 'Individual stats' */

2014-02-18T08:45:31Z

Instructions for generating the plots for 'Individual stats'

← Older revision		Revision as of 04:45, 18 February 2014
Line 1:		Line 1:
	=== Instructions for generating ~~the~~ plots for 'Individual stats' ===		=== Instructions for generating plots for 'Individual stats' ===

	1. ~~Download~~ and ~~install~~ Rstudio (http://~~www~~.rstudio.com/)		1. Install R and Rstudio (http://cran.rstudio.com/bin/windows/base/R-3.0.2-win.exe, http://download1.rstudio.org/RStudio-0.98.501.exe)

	2. Create a new "R script" and copy the code below (with updated ladle data)		2. From within Rstudio install these packages: ggplot2, Cairo

			3. Create a new "R script" and copy the code below (with updated ladle data)

	require(ggplot2)		require(ggplot2)
	require(scales)		require(scales)
			require(Cairo)

	data <- list(		data <- list(
Line 25:		Line 28:
	freako =c(14,17,21,24,27,34,41,55,56),		freako =c(14,17,21,24,27,34,41,55,56),
	mazuff =c(04,06,09,11,18,19,33,34,48),		mazuff =c(04,06,09,11,18,19,33,34,48),
			vov =c(57,65,66,69,73,74,76,78),
	gazelle =c(53,62,68,69,73,74,76,77),		gazelle =c(53,62,68,69,73,74,76,77),
	viper =c(07,24,27,29,30,31,36,46),		viper =c(07,24,27,29,30,31,36,46),
Line 61:		Line 65:
	l=unlist(data2,use.names=F),		l=unlist(data2,use.names=F),
	c=unlist(sapply(data2,function(x)(1:length(x))),use.names=F),		c=unlist(sapply(data2,function(x)(1:length(x))),use.names=F),
	m=unlist(sapply(data2,function(x)(rep(length(x),length(x)))),use.names=F))		m=unlist(sapply(data2,function(x)(rep(length(x),length(x)))),use.names=F))
	df2up <- df2[df2$m >= at_least,]		df2up <- df2[df2$m >= at_least,]
	ggplot(df2up) + geom_point(aes(x=l,y=reorder(p,c),size=c,color=c),shape=21,fill="Black") +		ggplot(df2up) + geom_point(aes(x=l,y=reorder(p,c),size=c,color=c),shape=21,fill="Black") +
Line 69:		Line 73:
	xlab(paste("Ladle dominance (",at_least,"+) in the last ",months_ago," months since L",last_ladle,"\n", "(updated ", format(Sys.time(), "%Y/%m/%d"),")",sep=""))}		xlab(paste("Ladle dominance (",at_least,"+) in the last ",months_ago," months since L",last_ladle,"\n", "(updated ", format(Sys.time(), "%Y/%m/%d"),")",sep=""))}

	### SAVE ~~GENERATE~~ PLOTS		### SAVE PLOTS
	ggsave("ladle_wins.png", plot_ladle_wins(), width=14, height=7, dpi=75)		ggsave("ladle_wins.png", plot_ladle_wins(), width=14, height=7, dpi=72, type="cairo-png")
	ggsave("ladle_dominance.png", plot_ladle_dominance(), width=14, height= 3.5, dpi=72)		ggsave("ladle_dominance.png", plot_ladle_dominance(), width=14, height= 3.5, dpi=72, type="cairo-png")

	3. Run the script. Two png plots will be saved		3. Run the script. Two png plots will be saved

Newbie: /* Instructions for generating the plots for 'Individual stats' */

2014-02-16T09:07:30Z

Instructions for generating the plots for 'Individual stats'

← Older revision		Revision as of 05:07, 16 February 2014
Line 9:		Line 9:

	data <- list(		data <- list(
	~~fofo~~= c(12,13,15,27,29,30,31,36,46,48,50,52,57,58,75),		dread =c(22,37,39,42,48,51,54,55,56,61,65,66,69,73,74,76,78),
	~~dread~~= c(22,37,39,42,48,51,54,55,56,61,65,66,69,73,74),		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),		hoax =c(12,13,15,22,23,28,44,45,50,55,56,61,75),
	xyron= c(21,24,27,32,33,37,39,40,42,50,55,56,61),		xyron =c(21,24,27,32,33,37,39,40,42,50,55,56,61),
	lacka= c(03,09,11,14,18,34,35,38,43,60,63,64),		lacka =c(03,09,11,14,18,34,35,38,43,60,63,64),
	flex= c(12,13,15,18,19,26,29,30,31,36,50,52),		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),		woned =c(16,20,25,32,37,39,40,42,53,71,72),
	eckz= c(41,49,51,54,57,58,59,62,65,66),		eckz =c(41,49,51,54,57,58,59,62,65,66),
	dlh= c(06,09,18,19,33,34,35,55,56,61),		dlh =c(06,09,18,19,33,34,35,55,56,61),
	durka= c(08,10,14,17,22,23,28,44,45,61),		durka =c(08,10,14,17,22,23,28,44,45,61),
	newb= c(01,04,06,09,11,21,24,33,34,35),		newb =c(01,04,06,09,11,21,24,33,34,35),
	~~gonzap~~= c(20,32,37,39,40,42,53,71,72),		olive =c(21,24,27,33,38,43,55,56,61,78),
	b3er= c(25,32,37,39,40,42,53,71,72),		gonzap =c(20,32,37,39,40,42,53,71,72),
	~~freako~~= c(14,17,21,24,27,34,41,55,56),		b3er =c(25,32,37,39,40,42,53,71,72),
	~~mazuff~~= c(04,06,09,11,18,19,33,34,48),		freako =c(14,17,21,24,27,34,41,55,56),
	viper= c(07,24,27,29,30,31,36,46),		mazuff =c(04,06,09,11,18,19,33,34,48),
	emmy= c(16,20,25,32,37,39,40,42),		gazelle =c(53,62,68,69,73,74,76,77),
	titan= c(33,38,43,46,60,63,70),		viper =c(07,24,27,29,30,31,36,46),
	~~gazelle~~= c(53,~~62,68~~,69,73,74),		emmy =c(16,20,25,32,37,39,40,42),
	wap= c(37,40,42,53,71,72),		titan =c(33,38,43,46,60,63,70),
	poke= c(38,43,60,63,64,70),		soul =c(65,66,69,73,74,76,78),
	psyko= c(07,11,26,29,30,36),		wap =c(37,40,42,53,71,72),
	~~soul~~= c(65,~~66,69~~,73,74),		poke =c(38,43,60,63,64,70),
	over= c(63,64,71),		psyko =c(07,11,26,29,30,36),
	jdawg= c(71,72),		kult =c(73,74,76,78),
	fippmam= c(62,67),		over =c(63,64,70,71),
	magi= c(67),		orion =c(36,78),
	~~orion= c(36)~~)		jdawg =c(71,72),
			fippmam =c(62,67),
			magi =c(67)
			)

	plot_ladle_wins <- function(at_least=5) {		plot_ladle_wins <- function(at_least=5) {
Line 52:		Line 55:
	xlab(paste("Ladle trophies (",at_least,"+) sorted by players' activity\n", "(updated ", format(Sys.time(), "%Y/%m/%d"),")",sep=""))}		xlab(paste("Ladle trophies (",at_least,"+) sorted by players' activity\n", "(updated ", format(Sys.time(), "%Y/%m/%d"),")",sep=""))}

			plot_ladle_dominance <- function (last_ladle=(max(unlist(data,use.names=F))), months_ago=18, at_least=3) {
	plot_ladle_dominance <- function (last_ladle=75, months_ago=18, at_least=3) {
	data2 <- lapply(data,function(a)(a[a>(last_ladle-months_ago) & a<=last_ladle]))		data2 <- lapply(data,function(a)(a[a>(last_ladle-months_ago) & a<=last_ladle]))
	data2 <- data2[sapply(data2,length)>0]		data2 <- data2[sapply(data2,length)>0]
Line 59:		Line 61:
	l=unlist(data2,use.names=F),		l=unlist(data2,use.names=F),
	c=unlist(sapply(data2,function(x)(1:length(x))),use.names=F),		c=unlist(sapply(data2,function(x)(1:length(x))),use.names=F),
	m=unlist(sapply(data2,function(x)(rep(length(x),length(x)))),use.names=F))		m=unlist(sapply(data2,function(x)(rep(length(x),length(x)))),use.names=F))
	df2up <- df2[df2$m >= at_least,]		df2up <- df2[df2$m >= at_least,]
	ggplot(df2up) + geom_point(aes(x=l,y=reorder(p,c),size=c,color=c),shape=21,fill="Black") +		ggplot(df2up) + geom_point(aes(x=l,y=reorder(p,c),size=c,color=c),shape=21,fill="Black") +
Line 67:		Line 69:
	xlab(paste("Ladle dominance (",at_least,"+) in the last ",months_ago," months since L",last_ladle,"\n", "(updated ", format(Sys.time(), "%Y/%m/%d"),")",sep=""))}		xlab(paste("Ladle dominance (",at_least,"+) in the last ",months_ago," months since L",last_ladle,"\n", "(updated ", format(Sys.time(), "%Y/%m/%d"),")",sep=""))}

	### GENERATE PLOTS ~~(remember to update the 'last_ladle' variable)~~		### SAVE GENERATE PLOTS
	plot_ladle_wins(~~at_least~~=5)		ggsave("ladle_wins.png", plot_ladle_wins(), width=14, height=7, dpi=75)
	plot_ladle_dominance(~~last_ladle~~=75, ~~months_ago~~=18, ~~at_least~~=3)		ggsave("ladle_dominance.png", plot_ladle_dominance(), width=14, height= 3.5, dpi=72)

	3. Run the script. Two plots will be ~~generated in the 'Plots' tab. You can browse them by using < and > arrows. Save them via 'Export' -> 'Save plot as image...' (set 'width' and 'height', f.e. 1000x500 & 1000x250)~~		3. Run the script. Two png plots will be saved

Newbie: /* Instructions for generating the plots for 'Individual stats' */

2013-11-27T13:14:57Z

Instructions for generating the plots for 'Individual stats'

← Older revision		Revision as of 09:14, 27 November 2013
Line 67:		Line 67:
	xlab(paste("Ladle dominance (",at_least,"+) in the last ",months_ago," months since L",last_ladle,"\n", "(updated ", format(Sys.time(), "%Y/%m/%d"),")",sep=""))}		xlab(paste("Ladle dominance (",at_least,"+) in the last ",months_ago," months since L",last_ladle,"\n", "(updated ", format(Sys.time(), "%Y/%m/%d"),")",sep=""))}

	### GENERATE PLOTS		### GENERATE PLOTS (remember to update the 'last_ladle' variable)
	plot_ladle_wins(at_least=5)		plot_ladle_wins(at_least=5)
	plot_ladle_dominance(last_ladle=75, months_ago=18, at_least=3)		plot_ladle_dominance(last_ladle=75, months_ago=18, at_least=3)

	3. Run the script. Two plots will be generated in the 'Plots' tab. You can browse them by using < and > arrows. Save them via 'Export' -> 'Save plot as image...' (set 'width' and 'height', f.e. 1000x500 & 1000x250)		3. Run the script. Two plots will be generated in the 'Plots' tab. You can browse them by using < and > arrows. Save them via 'Export' -> 'Save plot as image...' (set 'width' and 'height', f.e. 1000x500 & 1000x250)

Newbie: /* Instructions for generating the plots for 'Individual stats' */

2013-11-27T12:18:22Z

Instructions for generating the plots for 'Individual stats'

← Older revision		Revision as of 08:18, 27 November 2013
Line 71:		Line 71:
	plot_ladle_dominance(last_ladle=75, months_ago=18, at_least=3)		plot_ladle_dominance(last_ladle=75, months_ago=18, at_least=3)

	3. Run the script. Two plots will be generated in the 'Plots' tab. You can browse them by using < and > arrows. Save them via 'Export' -> 'Save plot as ~~timage~~...' (set 'width' and 'height', f.e. 1000x500 & 1000x250)		3. Run the script. Two plots will be generated in the 'Plots' tab. You can browse them by using < and > arrows. Save them via 'Export' -> 'Save plot as image...' (set 'width' and 'height', f.e. 1000x500 & 1000x250)

Newbie at 12:17, 27 November 2013

2013-11-27T12:17:49Z

← Older revision		Revision as of 08:17, 27 November 2013
Line 71:		Line 71:
	plot_ladle_dominance(last_ladle=75, months_ago=18, at_least=3)		plot_ladle_dominance(last_ladle=75, months_ago=18, at_least=3)

	3. Run the ~~scripts~~. Two plots will be generated in the 'Plots' tab. You can browse them by using < and > arrows. Save them via 'Export' -> 'Save plot as timage...' (set 'width' and 'height', f.e. 1000x500 & 1000x250)		3. Run the script. Two plots will be generated in the 'Plots' tab. You can browse them by using < and > arrows. Save them via 'Export' -> 'Save plot as timage...' (set 'width' and 'height', f.e. 1000x500 & 1000x250)

Newbie: /* Instructions for generating the plots for 'Individual stats' */

2013-11-27T12:17:03Z

Instructions for generating the plots for 'Individual stats'

← Older revision		Revision as of 08:17, 27 November 2013
Line 71:		Line 71:
	plot_ladle_dominance(last_ladle=75, months_ago=18, at_least=3)		plot_ladle_dominance(last_ladle=75, months_ago=18, at_least=3)

	3. Run the scripts. Two plots will be generated in the 'Plots' tab. You can browse them by using < and > arrows. Save them via 'Export' -> 'Save plot as timage...'		3. Run the scripts. Two plots will be generated in the 'Plots' tab. You can browse them by using < and > arrows. Save them via 'Export' -> 'Save plot as timage...' (set 'width' and 'height', f.e. 1000x500 & 1000x250)

Newbie at 11:59, 27 November 2013

2013-11-27T11:59:23Z

Show changes

Newbie at 09:29, 9 November 2013

2013-11-09T09:29:11Z

← Older revision		Revision as of 05:29, 9 November 2013
Line 2:		Line 2:

	Script to generate plot (use http://www.rstudio.com/)		Script to generate plot (use http://www.rstudio.com/)

	require(ggplot2)		require(ggplot2)
	require(scales)		require(scales)
	list <- sapply(list(		list <- sapply(list(
	newb=c(1,4,6,9,11,21,24,33,34,35),		newb=c(1,4,6,9,11,21,24,33,34,35),
	dlh=c(6,9,18,19,33,34,35,55,56,61),		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),		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),		titan=c(33,38,43,46,60,63,70),
	eckz=c(41,49,51,54,57,58,59,62,65,66),		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),		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),		woned=c(16,20,25,32,37,39,40,42,53,71,72),
	emmy=c(16,20,25,32,37,39,40,42),		emmy=c(16,20,25,32,37,39,40,42),
	gonzap=c(20,32,37,39,40,42,53,71),		gonzap=c(20,32,37,39,40,42,53,71,72),
	b3er=c(25,32,37,39,40,42,53,71),		b3er=c(25,32,37,39,40,42,53,71,72),
	mazuff=c(4,6,9,11,18,19,33,34),		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),		lacka=c(3,9,11,14,18,34,35,38,43,60,63,64),
	fofo=c(12,13,29,30,36,46,50,52,57,58),		fofo=c(12,13,15,27,29,30,31,36,46,48,50,52,57,58,75),
	hoax=c(12,15,22,23,28,44,45,50,55,56),		hoax=c(12,13,15,22,23,28,44,45,50,55,56,61,75),
	durka=c(8,10,14,17,22,28,44,45,61),		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)		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)		),sort)
	data <- data.frame(p=rep(paste(names(list)," (",sapply(list,length),")",sep=""),times=sapply(list,length)),		data <- data.frame(p=rep(paste(names(list)," (",sapply(list,length),")",sep=""),times=sapply(list,length)),
	ladle=unlist(list,use.names=F),		ladle=unlist(list,use.names=F),
	c=unlist(sapply(list,function(x)(1:length(x))),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) +		ggplot(data) + geom_point(aes(x=ladle,y=reorder(p,ladle),size=c,colour=c),shape=9) +
	scale_colour_gradient('wins', guide="legend", breaks=~~seq(from=1,to=max(data$c),length.out=5)~~) +		scale_colour_gradient('wins', guide="legend", breaks=bre) +
	scale_size_area('wins',breaks=~~seq(from=1,to=max(data$c),length.out=5)~~) +		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()) +		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=~~(if (max(data$ladle)<72) 72 else~~ max(data$ladle)),by=12)))		scale_x_continuous(breaks=c(1,seq(from=12,to=max(data$ladle),by=12)))

Newbie: Created page with "http://wiki.armagetronad.org/index.php/Ladle/Statistics#Individual_stats Script to generate plot (use http://www.rstudio.com/) require(ggplot2) require(scales) li..."

2013-08-04T07:39:32Z

Created page with "http://wiki.armagetronad.org/index.php/Ladle/Statistics#Individual_stats Script to generate plot (use http://www.rstudio.com/) require(ggplot2) require(scales) li..."

New page

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),
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),
emmy=c(16,20,25,32,37,39,40,42),
gonzap=c(20,32,37,39,40,42,53,71),
b3er=c(25,32,37,39,40,42,53,71),
mazuff=c(4,6,9,11,18,19,33,34),
lacka=c(3,9,11,14,18,34,35,38,43,60,63,64),
fofo=c(12,13,29,30,36,46,50,52,57,58),
hoax=c(12,15,22,23,28,44,45,50,55,56),
durka=c(8,10,14,17,22,28,44,45,61),
xyron=c(21,24,27,32,33,37,39,40,42,50,55,56,61)
),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))
ggplot(data) + geom_point(aes(x=ladle,y=reorder(p,ladle),size=c,colour=c),shape=9) +
scale_colour_gradient('wins', guide="legend", breaks=seq(from=1,to=max(data$c),length.out=5)) +
scale_size_area('wins',breaks=seq(from=1,to=max(data$c),length.out=5)) +
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=(if (max(data$ladle)<72) 72 else max(data$ladle)),by=12)))