R语言中绘制小提琴图

 

方法1vioplot包

001、加载包

library(ggplot2)#绘图包
library(ggpubr)#基于ggplot2的可视化包，主要用于绘制符合出版要求的图形
library(ggsignif)#用于P值计算和显著性标记
library(tidyverse)#数据预处理
library(ggprism)#提供了GraphPad prism风格的主题和颜色，主要用于美化我们的图形
library(vioplot)#小提琴图绘制包

 

002、准备数据

df <- data.frame(
  A_1 = c(2,5,6,5,4,8,6,3,8,9),
  A_2 = c(5,8,6,3,4,7,9,3,6,4),
  B_1 = c(15,10,5,18,12,13,16,14,10,9),
  B_2 = c(25,20,23,15,14,24,20,22,25,26),
  C_1 = c(1,3,6,5,2,3,6,2,4,1),
  C_2 = c(7,8,9,6,7,8,9,6,7,10))

 

003、修改格式

df <- df %>% gather(key = 'samples',value = 'values')

 

004、添加分组

df$group = rep(c("A","B","C"), each = 20)

 

005、绘图

vioplot(values~samples, data = df, 
        main = "kkkkk",
        col=c("red", "blue", "green","purple","yellow","magenta"),
        xlab="xxxx", ylab="yyyy") 

 

绘图结果：

 

 

二、方法2

 

001、基本图形

p1 <- ggplot(df, aes(x=samples, y=values, fill=samples)) +
geom_violin()
p1

 

 

002、增加箱线图

p2<-p1+geom_boxplot(alpha=1,outlier.size=0, size=0.3, width=0.2,fill="white")+
  stat_summary(fun="mean",geom="point",shape=21, size=2,fill="blue")
p2

 

 

003、自定义颜色

col=c("red", "green", "blue","cyan","yellow","purple")
p3<-p2+scale_fill_manual(values = col)
p3

 

 

004、分组

p4 <- p3 + facet_grid(~group,scales = 'free')
p4

 

 

005、添加显著性标记

p1
p5 <- p1 + geom_signif(comparisons = list(c("A_1","A_2"),
                                      c("B_1","B_2"),
                                      c("C_1","C_2")),
                   map_signif_level = T, 
                   test = t.test, 
                   size=0.8,color="black")
p5

 

原文：https://www.zhihu.com/question/52136037