七夕,来用R画朵玫瑰--强大的ggplot2
2020-08-25 本文已影响0人
生信小鹏
见识了R的强大,当然也见识了自如写package的大佬,能自如调包就让我感到爽的不行,至于package后面的原理,现阶段还真应该好好研究研究。
说了这些,好吧,主要是今天是农历七夕,没有花前月下,只有苟且的生活,那么就用眼前的PC来画画有趣的东西。
用到的package是emojifont,果然大佬几行代码,菜鸟大半年。从这个中真是见识了R画图的强大。
不多说,来点有趣的东西。
require(emojifont)
ggplot() + geom_emoji('cake')
![](https://img.haomeiwen.com/i4940526/5a66992f1da19685.png)
怎么搞的,这个节日上什么蛋糕,搞错了,重来。
ggplot() + geom_emoji("rose", color='red') + theme_void()
![](https://img.haomeiwen.com/i4940526/31d8002660bafe44.png)
当然红玫瑰,白玫瑰(陈奕迅的小曲来一段),蓝玫瑰自由调节,至于这个package中玫瑰怎么再变化,我还不知道。
ggplot() + geom_emoji("rose", color='blue') + theme_void()
![](https://img.haomeiwen.com/i4940526/b344ba88b10cee5c.png)
有玫瑰了,再来比个心
ggplot() + geom_emoji("heart", color='red') + theme_void()
![](https://img.haomeiwen.com/i4940526/004d14056cfe762b.png)
是不是太单调了
来加点数学函数吧
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()
![](https://img.haomeiwen.com/i4940526/16c82001392fca9b.png)
随意的调整,只要你的函数表达好,反正对于一个临床医生,现在还能记得三角函数,我自己都觉得还不错,哈哈。
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()
![](https://img.haomeiwen.com/i4940526/269669b6569a6706.png)
赶在今天结束写完吧
最后放一张用Y叔写的这个package画的GitHub图
ggplot() + geom_fontawesome("fa-github", color='blakc') + theme_void()
![](https://img.haomeiwen.com/i4940526/2ef5317245112364.png)
![](https://img.haomeiwen.com/i4940526/03e0cd243d59904e.png)
写到这里呢,也就差不多了,其实是很简单的图形,但是基于R,ggplot2原来可以这么玩,把一件事情钻研至精,便会精彩无比。