你所没见过的苹果

《你所没见过的苹果》一文最早发表于2017年8月，当时我用了许久的iPhone 5S坏掉了，特意画个图来纪念一下，现在翻出来，发现排版太差，代码在手机上看被微信吃掉了，在电脑上看倒没什么问题，再者数据我直接贴出来，现在有了biobabble包，我可以有更好的方式来分发这个数据，于是重推，除此之外，我还用单纯ggplot2 + emojifont来画一张。

5s无缘无故突然就自带3D效果，可是苹果没送我3D眼镜啊！做为一个果粉，自从乔帮主离去之后，对苹果是越来越无爱了。

anyway，对于这部陪伴许久的手机，还是要纪念一下的。

《按地理位置分面》一文最后我埋了个伏笔，写到最后的时候，我想到的是可以拿来画个元素周期表，但懒得搞，在《ggplot2分面之像素艺术》一文里用一只火鸡展示了用图来拼像素画的思路，回应了前文的伏笔。今天继续展示一个像素画，为了纪念我的iphone5S，当然我要画个苹果🍎出来。

这里的图，用的是emoji来画，如果你还不会用emoji来画图装逼，赶紧戳《看完此文, 你也能够大开脑洞, 上升逼格》。然后用geofacet来拼出像素画，这个时候，你应该想到可以拿来拼你的照片，画个某个形状的照片墙了。

require(biobabble)
data(apple)

require(emojifont)
require(ggplot2)
require(geofacet)

pg <- ggplot(apple, aes(x, y)) +
    geom_text(aes(label=emoji, color=row), 
              family="EmojiOne", size=8) +
    facet_geo(~code, grid=apple) + 
    scale_color_continuous(low="blue", high="red") +
    theme_void() + 
    theme(strip.text=element_blank(), 
          legend.position='none')

把上面的代码copy-paste到R里，你将会得到下面的图：

然而你不要以为只能用geofacet才可以出这样的效果哦，下面的代码，单纯用emojifont + ggplot2，也可以画出苹果🍎：

## reproduce the figure without `geofacet`
ggplot() + 
    geom_emoji(sample(search_emoji('heart'), 195, 
        replace=T), x=apple$col, y=-apple$row, size=8)

---

往期精彩

• ggtree画根分支