其他
报读什么学校？R语言告诉你要跟随初心！
今天最主要是跟大家讲一讲这个图怎么画。
先加载包
require(magick)
require(ggplot2)
require(ggplotify)
require(shadowtext)
require(ggimage)
如果这些包你没有安装，那就直接install.packages()安装即可，全都在CRAN上。
读入底图
❝上不了谷歌，就用百度？你有Bing啊！
❞
首先我在bing搜索图片，「高校logo」，然后截个图，做为底图，用magick包读入，用ggplotify包转为ggplot对象。还不知道ggplotify，请猛击《ggplotify简史》。
x = image_read("~/Pictures/2020-07-26_22-19.png")
p = as.ggplot(x)
图上嵌图
smu = "http://www.smu.edu.cn/images/nfyk-logo.png"
p <- p + geom_rect(xmin=.2, xmax=.8, ymin=.4,
ymax=.6, fill='steelblue', alpha=.5) +
geom_image(x=.5, y=.5, image=smu, size=.6)
用一张南方医科大学的官方logo，把它加到底图的上层，但由于背景太复杂，为了更突显出来，我先用geom_rect加一个方框，图上嵌图，当然是用ggimage包了，或许可以了解一下这一篇：《shit，拟合的残差这么大！》。
寄语
msg = "填志愿一定要遵从本心\n第一眼看到哪个，就报哪个！"
p + geom_shadowtext(
x=.5, y=.8, label=msg,
size=10, color='firebrick')
最后怎么少得了给大家说两句心里话，还是有背景太复杂的问题，你用geom_text去加字，字没法突显出来，这时候，拿出来shadowtext包，这个包你也不了解的话，《带你装逼带你飞，画图的文本打出阴影立体效果 》这一篇文章来了解一下。
❝弱弱地讲一声，
❞ggimage,ggplotify和shadowtext都是我写的，只有在这里，你才会学到这些包的组合拳如何给你画图加码。