您的中秋节礼物到了！希望能给您带来快乐。
R是个有意思的软件，它可以实现你的任意想法。借用Y叔的创意为大家送上我的
中秋祝福：DIY_mooncake，也向Y叔致敬。下面分享代码，你自己也可以实现。

Y叔原始数据mooncake

通过Y叔的github可以获取他的月饼原始数据，在biobabble包里，然后通过data()函数获取mooncake数据

1library(devtools)2install_github("guangchuangyu/biobabble")3library(biobabble)4library(ggplot2)5data(mooncake)6bplot(mooncake)

image

可以看到，代码很简单，简单粗暴，得到了一块素月饼，还带了Y叔自己的标签，哈哈。显然黑白色满足不了我的好奇心，我试着看一下原始数据，发现很简单又很复杂，简单是因为就是一种散点图而已，复杂的是这是个复杂的散点图，分不同层次，位置，都是精心设计的。

DIY_mooncake简单粗暴，一气呵成，背景纯净

大致搞清楚Y叔的对数据的设计之后，我开始试着分层，最终大致分了6个层次。后面就很简单了，不再多说啦，就是给不同层次加颜色而已，然后用ggplot2画散点图。大家可以自己分层，还可以分的更细些。

 1p_mck<-ggplot(data = mck_col)+geom_point(aes(x=x,y=y,col=col))+ 2  theme_bw()+ 3  theme(legend.position="none",axis.text.x = element_blank(), 4        axis.text.y = element_blank(),axis.ticks.x = element_blank(), 5        axis.ticks.y = element_blank(), 6        panel.grid.major=element_blank(), 7        panel.grid.minor=element_blank(), 8        panel.border = element_blank())+ 9  labs(x=NULL,y=NULL)+10  scale_y_reverse()11p_mck12

image

这就是我自己加的颜色，哈哈哈，有人说我的月饼花里胡哨，没食欲。。。，大家可以根据自己喜欢的颜色画出自己心目中的月饼呦。

Tip:带有颜色的数据可以公众号留言获取哦!