emojifont包

上次介绍emojifont包，后台还有人给我留言，跑了我的代码，这次更新一下，加了一些小伙伴们用emojifont包所做的图。

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

https://twitter.com/KaradaGood/status/724342323157454848

https://twitter.com/jjstache/status/813459335930056704

https://twitter.com/guangchuangyu/status/708160510441566211

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

进化树那个是我自己画的，其它几个都是别人画的，并且在发推的时候有AT到我的，想必还有一些没有AT我的。

偶尔也有人点名表扬一下，比如下面这个，图是vignette里的，点击阅读原文可直达。

做为emojifont包的作者，我表示很高兴看到自己的包给大家带来乐趣，emojifont是我用了两个晚上写的，一个晚上支持了emoji字体，另一个晚上加入了fontawesome字体。

下面给一个实例，展示使用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'))

于是产生下图：