工作中，怎么少得了各种总结，难道你不出几张图来看看？这怎么少得了emoji呢？
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://twitter.com/guangchuangyu/status/708160510441566211
https://twitter.com/ma_salmon/status/706490090609106944
如果是水果机，用内置的字体也是支持的。
没错，我喜欢写无聊的装逼包，这个emojifont包也是我写的。而且我表示很高兴看到这个包给大家带来乐趣，emojifont是我用了两个晚上写的，一个晚上支持了emoji字体，另一个晚上加入了fontawesome字体。
学术图中使用表情包似乎也挺不错
推文中说不能在Windows下，是不对的。评论中说文本的没有颜色也是不对的。要使用图片的话，ggimage让你各种表情包都能用来画图。
【侵权请联系删除】
作者：小rui
来源：YuLabSMU
