使用emoji画图
无缘无故收到好几条消息,原来是用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)