绘图导航
  • 基础绘图
  • 高级绘图
  • 微生物
  • 转录组

R语言|绘制云雨图

 二维码 2
作者:图图来源:图图云平台

云雨图代码参考

##云雨图

library(ggplot2)

library(geneRal)

library(tidyr)

library(dplyr)

#模拟数据

dat <- data.frame('group'=c(rep("c",30),rep("t",30),rep("v",30)),

                  'shannon'=c(rnorm(30,20,3),rnorm(30,15,3),rnorm(30,10,3)))

ggplot(dat,aes(x=group,y=shannon))+

   geom_flat_violin(aes(fill=group,color=group),position = position_nudge(x=.1))+

   geom_dotplot(binaxis = "y",binwidth = 1,stackdir = "down",dotsize = 0.4)+

   coord_flip()+

   theme_bw()

#添加箱线图

ggplot(dat,aes(x=group,y=shannon))+

   geom_flat_violin(aes(fill=group,color=group),position = position_nudge(x=.1))+

   geom_boxplot(width=.05,position = position_nudge(x=.05),outlier.colour =NA)+

   geom_dotplot(binaxis = "y",binwidth = 1,stackdir = "down",dotsize = 0.4)+

   coord_flip()+

   theme_bw()




“作图帮”微信公众号同步更新

作图帮二维码.jpg


可添加下方微信进入【生信作图交流群】,群内免费分享绘图代码与示例数据

公司二维码.png



分享到:
推荐使用谷歌浏览器点击下载