无缘无故收到好几条消息,原来是用emoji画图。

https://twitter.com/ma_salmon/status/800009044123586560

做为emojifont包的作者,我表示很高兴看到自己的包给大家带来乐趣,在回复中@milerdl说emoGG是他用了两个晚上写的,emojifont刚好也是我用了两个晚上写的,一个晚上支持了emoji字体,另一个晚上加入了fontawesome字体。

https://twitter.com/matlabulous/status/677205176663588865

在写这个包之前,我早就有用emoji在R画图中,写这个包也正是为了回应emoGG,因为我觉得他的实现方式并不理想,而我的更为灵活。

回到主题上,我将展示使用emojifont来画图。

下面这个数据是我每年读书、看电影、听专辑的数目:

> d
   year category num
1  2009     book  35
2  2009    movie  64
3  2009    music  24
4  2010     book  34
5  2010    movie  47
6  2010    music  13
7  2011     book  17
8  2011    movie  18
9  2011    music   2
10 2012     book  25
11 2012    movie  25
12 2012    music   0
13 2013     book  15
14 2013    movie  17
15 2013    music   0
16 2014     book   8
17 2014    movie  11
18 2014    music   1
19 2015     book   5
20 2015    movie  14
21 2015    music   0
22 2016     book   4
23 2016    movie  14
24 2016    music   0

先加载所需的包和emoji字体:

require(ggplot2)
require(ggthemes)
require(emojifont)
load.emojifont()
emo <- emoji(c("book", "movie_camera", "musical_note"))
names(emo) <- c('book', 'movie', 'music')

画出趋势图,并在每个点上用相应的emoji字体标注:

p <- ggplot(d, aes(x=factor(year), y=num, group=category, colour=category))
p <- p +geom_line() +geom_text(aes(label=emo[category]), family='OpenSansEmoji', size=10) +xlab(NULL) + ylab(NULL) 

更改一些背景等主题细节,设置中文字体等:
p <- p + theme_fivethirtyeight() + scale_color_tableau()
p <- p+theme(axis.text.x=element_text(face="bold", size=16), 
		axis.text.y=element_text(face="bold", size=16))
 p <- p+theme(legend.text=element_text(size=16, family="OpenSansEmoji"), 
			legend.title=element_blank(), legend.position='none')
p+ ggtitle('Y叔的书影音') + theme(plot.title=element_text(family='STKaiti'))

于是产生下图:

![](https://guangchuangyu.github.io/blog_images/Bioconductor/Screen Shot 2016-11-21 at 7.47.34 PM.png)