画一只恐龙

大家是否还记得我的《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，你不能错过下面的电梯：

画一只恐龙

Guangchuang Yu