其他
医师节快乐!
今天的朋友圈,上面这张图高频出现,做为一个节日,怎么少得了画图祝贺一下。这可是我们的保留节目!
首先嘛,当然是要安装或更新biobabble
包。
remotes::install_github("GuangchuangYu/biobabble")
有了这个包,数据就有了,画图的函数也有了。
实例演示
不出意外,我们先要加载包:
library(biobabble)
然后要加载数据,也就是画图需要的一个数据框:
data(doctor)
最后当然是出图了,用一个bplot
函数画出来:
bplot(doctor) +
ggplot2::ggtitle("2020\n中国医师节快乐!")
这里我给图加多个标题,有图有真相,整个过程截屏如下:
最后出的图,是这样子的,一个穿着防护服,带着护目镜的医生,向医生们致敬。