github被微软收购
微软以75亿美元收购全球最大的单身交友网站GitHub,应景分享一张图片,其实这图大家并不陌生,在《听说你还不会画热图》一文中,大家早已见过。
这图实在太好玩,被套在各种场景上,今天就要教大家怎么用R,纯代码生成这样的图,简直是吐槽神器。这类图可以归入meme,画meme,当然少不了我写的meme包,这包收录在CRAN中,点击下面链接了解一下:
然而meme包主要针对的是最常见的meme形式,也就是上下加caption这种,对于现在我们要实现的这种对话形式的,可以说不是meme包单独所支持的,当然要支持也很容易,但我觉得没必要,因为可以用下面我要介绍的方式,这种方式可以说本身也是通用的meme生成方式,反正你可以任意位置加文字嘛,而且是用你熟悉的ggplot2语法,真的有这么神奇。有图有真相:
library(magick)
library(ggplot2)
library(shadowtext)
library(ggplotify)
x = image_read("meme-bg1.jpg")
p = as.ggplot(x)
p + geom_shadowtext(x=.25, y=.1, size=10, label="GITLAB", family="Impact") +
geom_shadowtext(x=.62, y=.5, size=6, label="EVERY GITHUB\nREPO RIGHT NOW", family="Impact") +
geom_shadowtext(x=.89, y=.25, size=7, label="MICROSOFT", family="Impact")
这段代码相当简单,你用magick
读图,然后用ggplotify
包把图转化成ggplot
对象,然后我们就可以用ggplot2
各种加图层了,就是这么简单!一般画meme用的是Impact
字体,这里我也是用这个字体,当然专业画meme的话,可不是随便加个字就算了,需要文字的背景有阴影效果,这个呢,有shadowtext
包可实现,详情可见《带你装逼带你飞,画图的文本打出阴影立体效果 》。
这里之所以能够这么爽,随随便便就画出专业级别的meme,就在于ggplotify
和shadowtext
这两个包,而这两个包的作者,就是Y叔本人啦(此处应该有掌声)。这两个包只是随手一组合,就可以当meme专业工具而已,当然它不是专门为meme制作而写的,所以一般画meme的话,还是我的meme
包好用,因为有各种针对画meme的细节上的考量,比如有meme_save
可以按照图片的长宽比输出文件,内置支持导入外部字体等,那么随意在各种位置上加字体的功能,我为什么不需要在meme
包中加入呢?因为meme
包生成的meme
对象,你也可以用ggplotify
转成ggplot
对象,然后参照上面示例的代码,用shadowtext
包,自己随意加图层,可以说这个功能本身也是有的,只不过不单独存在于meme
中而已,所以我不用去实现它,衔接meme
、ggplotify
、shadowtext
三个包,就完全可以胜任。