大家是否还记得我的《webinar录播 (2017-10-24):plotting tree + data》,这可以说是R画图最好的课程,PPT也分享给大家《ggtree直播PPT第一部分》和《ggtree直播PPT第二部分》。

我在PPT中,用了meme,发现没有R包可以做,于是我写了一个R包来做这个事情。

后来又写一个R包来实现字体的阴影效果:

现在你可以随意在R里生成专属表情包了,当然中文也是支持的,并且也可以出阴影效果:

在我的课件第6张PPT里,画了一只恐龙,它和其它12张图的「参数」一样,这些参数包括均值、方差、相关性。这是专门用来吐槽只会使用均值+-方差的广大生物狗,而我放在PPT里,也是为了告诉大家,学一点编程、学一点作图,可以让你跳出这个坑,给你探索数据的可能性。今天我就教大家如何重复出第6张PPT中的恐龙图,想返回看PPT的,请猛击文章开头的链接。

这是数据现在已经是教学远离柱状图的经典案例了,所以已经被打包在R包里,这个R包啥都没有,就只是打包了这个数据而已。已经在CRAN上,所以可以用下面的命令来安装:

install.packages("datasauRus")

然后画图嘛,太简单不过,无非只是散点,这个公众号的粉丝都应该会,不会的话,请猛击《Use ggplot2》。

library(ggplot2)
library(datasauRus)

p1 <- ggplot(subset(datasaurus_dozen, dataset!='dino'), 
				aes(x=x, y=y, colour=dataset))+
  geom_point()+
  theme(legend.position = "none")+
  facet_wrap(~dataset, ncol=3)

p2 <- ggplot(subset(datasaurus_dozen, dataset=='dino'), 
				aes(x, y)) + 
	geom_point()  

cowplot::plot_grid(p2, p1, ncol=1, rel_heights=c(.5, 1))

看过这篇文章的人,都会画恐龙了,上面代码中的p2就是单纯的恐龙,在以后的岁月里,又多了一项装B的技能,要说装B,你不能错过下面的电梯: