R语言树状图treemapify

    这周做ICM2011，有一个能源结构的预测，正好看到一个树状图包，就试用了一下：

必要的包：ggplot2，treemapify

输入数据：

library(treemapify)
energy<-data.frame(value<-c(1240.11,23.90,1393.30,805.33,265.83,17.42,
36.75,226.87,40.50,22.07),kind<-c('coal','oil','gas','nuclear','hydro','geo','solar','wind','wood','bio other'))
energy$kind<-as.factor(energy$kind)
ggplot(data=energy,aes(area=value))+geom_treemap()

233，黑乎乎的一片，啥玩意

继续优化，在ggplot的aes映射中加一个颜色参数：

 ggplot(data=energy,aes(area=value,fill=kind))+geom_treemap()

似乎已经可以看了！不过对照右边看还是比较困难，来加个标签：

ggplot(data=energy,aes(area=value,fill=kind,label=kind))+geom_treemap()+geom_treemap_text(fontface='italic',place='centre')

效果还不错呢，放到论文里就是这样的效果：

（突然发现年份搞反了，，前面一个应该是2025，尴尬）

不过这还没有结束，这次还学了一个包，背景呢，就是ggplot的图层映射虽然很经典，但是看腻了也会很烦，所以

ggthemes包就横空出世了，我全家都用！

library(ggthemes)
> ggplot(data=energy,aes(area=value,fill=kind,label=kind))+geom_treemap()+geom_treemap_text(fontface='italic',place='centre')+theme_economist()

看看这个主题：

是不是更economist了！

ggthemes还有很多主题，树状图体现的不明显，不过画坐标图就会好看很多！