画图倒不如手绘

在《漫画版的进化树你见过吗?》一文中,我介绍过一个R包,可以把ggplot2转成漫画风格,今天介绍一个新的包,ggrough,它封装了一个叫roughjs的javascript库,可以把ggplot2转成手绘风格:

require(dplyr)
library(ggplot2)
count(mtcars, carb) %>%
  ggplot(aes(carb, n)) +
  geom_col() + 
  labs(title="Number of cars by carburator count") + 
  theme_grey(base_size = 16) -> p 
p

Continue reading

用ggplot2画3D

在《扪心自问,meme几何?》一文中,我画了一只兔子,今天给大家演示一下画一只3D版本的兔子,我们知道ggplot2不支持3D,只能画2D的图,但3D其实只是视觉上的,显示在你屏幕上的,同样只是2D。所以我们要做的,就是把3D的坐标转换成2D,然后画出2D的图片来,而这2D看上去有3D的效果。

Continue reading

说到世界杯,我是不追的,但1998年法国世界杯我还是有印象的,那时候读初中的我,一直在集邮,那年代没有网购,通讯基本靠吼,当年的我已经是个老司机了,通过邮政汇款,买了好多东西,包括1998年世界杯从法国寄往中国的首日封,当然锁在老家的柜子里,尘封多年,所以我现在也没办法随手拍一张照片给大家分享。

另一件事,同样是1998年,那年升高一,开学第一天,老师让大家自我介绍一下,有位帅哥在见面第一天,就立了flag,说自己中考没考好,是因为看世界杯了,他高考必定要怎么样怎么样,毕竟世界杯是四年一次。你一个交钱进学校的学渣,牛逼吹大了,我印象深刻,所以我后来留意了一下这家伙高考上了那家高校,结果是「中山大学网络教育学院」,也就是电视大学!真的是情节反转如疾风!

转发5个群,Y叔送你一顶帽子》这一篇文章写的是加圣诞帽子,但你要加个C罗、梅西,有什么差别吗?没有!你要加某球队的队服,有什么差别吗?没有。所以要制作世界杯专属头像,已然可以用ggimage纯代码生成。

Continue reading

github被微软收购

微软以75亿美元收购全球最大的单身交友网站GitHub,应景分享一张图片,其实这图大家并不陌生,在《听说你还不会画热图》一文中,大家早已见过。

这图实在太好玩,被套在各种场景上,今天就要教大家怎么用R,纯代码生成这样的图,简直是吐槽神器。这类图可以归入meme,画meme,当然少不了我写的meme包,这包收录在CRAN中,点击下面链接了解一下:

Continue reading

这是CJ在我的星球里分享的一个关于饼图的实现方式,代码的排版太差,还有一点是对于普通用户来说,还是有点难度,如果是我,必须是写成函数,直接出图。

Continue reading

这是去年「知识星球」里的提问,「知识星球」相当于是众筹我一年的时间,向我提问,请谨慎入坑。

我当时就写了一个函数ggvenn,这个函数其实包装了venneuler,但由于venneuler依赖rJava,而很多小伙伴不会装rJava,而因此装不了yyplot,所以我去掉了这个依赖,但如果你想要用ggvenn这个函数,请自行安装rJavavenneuler。其实还有另外一个包,VennDiagram,它的输出是gList,所以可以直接封装为ggplot2图层,然而对于画venn plot,我并没有太多的兴趣,《CS6: ChIPseeker的可视化方法(中秋节的视觉饕餮)》一文中介绍的upset plot,可能更好一些。

Continue reading

这是小伙伴的命题作文,下面这个数据是曾老湿给出来的,其中header行竟然放在了最后一行,我手工把它挪到了第一行,里面还有一个数据缺失的,会导致读了数据后会有NA值,需要去除。

$ file summary_ATAC_seq_motif.xlsx                                                                                     
summary_ATAC_seq_motif.xlsx: Microsoft Excel 2007+

这是一个Excel文件,我们可以用readxl来读:

require(readxl)
x <- read_xlsx("summary_ATAC_seq_motif.xlsx")

Continue reading

Author's picture

Guangchuang Yu

Bioinformatics Professor @ SMU

Bioinformatics Professor

Guangzhou