年底了，各种总结，难道你不出几张图来看看？这怎么少得了emoji呢？

emojifont画图实例演示

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

> d

   year category num

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

(ggplot2)

(ggthemes)

(emojifont)

load.emojifont()

))

)

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

p <- ggplot(d, aes(x=factor(year), 

                  y=num, 

                  group=category, 

                  colour=category))

p <- p + geom_line() + 

      geom_text(aes(label=emo[category]), 

, 

) +

) 

更改一些背景等主题细节，设置中文字体等：

p <- p + theme_fivethirtyeight() + scale_color_tableau()

), 

))

), 

              legend.title=element_blank(), 

)

) + 

))

于是产生图如下：

你大概可能会问了，都2021年了，怎么数据是只到2016？因为这本来就是我在2016年写的文章，好文章都没有被发现（几百阅读，没有留言，没有人分享）。重新推送给你，正好适合你做一个不一样的年终总结。

更多实例

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

如果是水果机，用内置的字体也是支持的。

没错，我喜欢写无聊的装逼包，这个emojifont包也是我写的。而且我表示很高兴看到这个包给大家带来乐趣，emojifont是我用了两个晚上写的，一个晚上支持了emoji字体，另一个晚上加入了fontawesome字体。

学术图中使用表情包似乎也挺不错

推文中说不能在Windows下，是不对的。评论中说文本的没有颜色也是不对的。要使用图片的话，ggimage让你各种表情包都能用来画图。

看完你还想看