使用emoji画图

#rstats code for the PhD/cute animals gestation #ggplot2 #gganimate #emojifont plot https://t.co/qWM0bCHoHJ 🐭🐶🐱🐺🐯🐷🐏🐻👶🐳🐘📕 https://t.co/a4GYl191a8

— Maëlle Salmon 🐟 (@ma_salmon) November 19, 2016

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

@pboesu btw do you know the @guangchuangyu emojifont pkg? I've used it more than @millerdl emoGG https://t.co/p27fwEmDSD but I like both https://t.co/uV49WjOSp3

— Maëlle Salmon 🐟 (@ma_salmon) November 19, 2016

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

Hi @guangchuangyu excellent #rstats #emojifont implementation! https://t.co/lTIWDQ1zq0 very cool! pic.twitter.com/sCALpuWW28

— Jo-fai (Joe) Chow (@matlabulous) December 16, 2015

在写这个包之前，我早就有用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'))

于是产生下图：