七夕，来用R画朵玫瑰

见识了R的强大，当然也见识了自如写package的大佬，能自如调包就让我感到爽的不行，至于package后面的原理，现阶段还真应该好好研究研究。

说了这些，好吧，主要是今天是农历七夕，没有花前月下，只有苟且的生活，那么就用眼前的PC来画画有趣的东西。
用到的package是emojifont，果然大佬几行代码，菜鸟大半年。从这个中真是见识了R画图的强大。

不多说，来点有趣的东西。

require(emojifont) ggplot() + geom_emoji('cake')

蛋糕

ggplot() + geom_emoji("rose", color='red') + theme_void()

玫瑰

当然红玫瑰，白玫瑰（陈奕迅的小曲来一段），蓝玫瑰自由调节，至于这个package中玫瑰怎么再变化，我还不知道。

ggplot() + geom_emoji("rose", color='blue') + theme_void()

蓝玫瑰

有玫瑰了，再来比个心

ggplot() + geom_emoji("heart", color='red') + theme_void()

比个心

是不是太单调了

来加点数学函数吧

x = seq(-2, 2*pi, length=30) y = cos(x) z = -cos(x) ggplot() + geom_emoji('rose',color = 'red', x=x, y=y, size=10)+ geom_emoji('heart',color = 'red', x=x, y=z, size=10)+ geom_line(color = 'red', x=x, y=0, size=10)+ xlim(-2,2)+ theme_classic()

随意的调整，只要你的函数表达好，反正对于一个临床医生，现在还能记得三角函数，我自己都觉得还不错，哈哈。

x = seq(0, 2*pi, length=30) y = cos(x) z = -cos(x) ggplot() + geom_emoji('rose',color = 'red', x=x, y=y, size=10)+ geom_emoji('heart',color = 'red', x=x, y=z, size=10)+ geom_line(color = 'red', x=x, y=0, size=10)+ xlim(-2,2)+ theme_bw()

赶在今天结束写完吧

最后放一张用Y叔写的这个package画的GitHub图

ggplot() + geom_fontawesome("fa-github", color='blakc') + theme_void()

节日快乐

写到这里呢，也就差不多了，其实是很简单的图形，但是基于R，ggplot2原来可以这么玩，把一件事情钻研至精，便会精彩无比。

惟精惟一，允执厥中。