2012伦敦奥运的金牌项目分布

伦敦奥运会尘埃落定，又到了数金牌的时候了。上图还是用的R中的treemap包绘制了这个大game中各项目的金牌分布情况，矩形的大小反映了项目的重要性。比如说在所有302块金牌中，Athletics（田径）所占的金牌比例就很高。与之相当的则是Aquatics（水上项目）。而中国所获金牌数则用不同的颜色深度来表示，例如说在Badminton（羽毛球）上拿到了5枚金牌，颜色就非常深。可以观察到在很多项目中，中国仍是一片空白。

参考资料：
http://www.london2012.com/country/china/medals/index.html
http://en.wikipedia.org/wiki/2012_Summer_Olympics#Sports
整理后的数据文档

代码：

	library(treemap)
	data <- read.csv('d:/olympic.csv',T)
	tmPlot(data,
	index=c("sports", "events"),
	vSize="gold",
	vColor="china",
	type="value",
	title='中国奥运金牌分布',
	fontsize.labels=13,
	lowerbound.cex.labels=0.7,
	palette="-RdGy")

view raw olympic.R hosted with ❤ by GitHub