R语言|绘制云雨图

云雨图代码参考

##云雨图

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()

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

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