制作了一个banner，用来插入到文后，方便阅读到最后的时候，直接扫描关注。

这图当然用PS一下就可以得到，无非是拼图和加点文字。但做为天天写代码画图的人来说，必然是要纯代码来产生的，而且做科学的人，讲究自动化、可重复性。

就像有些人不理解data scentist为什么讨厌excel一样，觉得无非是工具，没什么好搞阵营的。试想一下，一个分析流程中间有一步要用到excel，需要人工去点点鼠标，这对于讲究自动化、可重复性的data scientist来说是不可接受的。

加载中文字体

为了打几个中文字，需要先加载字体，这里我用showtext。

require(showtext)
font.add("heiti", "/Library/Fonts/华文黑体.ttf")
showtext.auto()

读图

两个图，一个是logo，一个是二维码，分别用EBImage读入

require(EBImage)
require(grid)

gc <- rasterGrob(image=readImage('gc.png'))
page <- rasterGrob(image=readImage('biobabble_page.png'))

图上嵌图

这里用我自己写的ggimage包的geom_subview来嵌图，然后无非打几个字，设一下字体。

require(ggimage)
pg <- ggplot(d=data.frame(x=c(0,10), y=c(0,5)), aes(x, y)) + geom_blank() + coord_fixed()
pg <- pg+geom_subview(gc, x=2.5, y=2.5, width=5.1, height=5.1) + geom_subview(page, x=7.5, y=2.5, width=4.8, height=4.8)

pg <- pg+theme_void() + labs(title="长按二维码关注biobabble", subtitle="欢迎分享朋友圈",caption='guangchuangyu@gmail.com') + theme(title=element_text(family="heiti", size=20))
ggsave(pg, file="biobabble_banner.png", width=8, height=5)

于是产生下图：