小提琴图（一）

---

#载入vioplot包

library("vioplot")

#定义需要绘制的变量数据

x1 <-read.delim("C:/Users/Administrator/Desktop/j.txt")

View(x1)

x2 <- as.matrix(x1)

x3=scale(x2)

x4 <- read.delim("C:/Users/Administrator/Desktop/k.txt")

View(x4)

x5 <- as.matrix(x4)

x6=scale(x5)

x7 <- read.delim("C:/Users/Administrator/Desktop/l.txt")

View(x7)

x8 <- as.matrix(x7)

x9=scale(x8)

x10 <- read.delim("C:/Users/Administrator/Desktop/m.txt")

View(x10)

x11 <- as.matrix(x10)

x12=scale(x11)

x13 <- read.delim("C:/Users/Administrator/Desktop/n.txt")

View(x13)

x14 <- as.matrix(x13)

x15=scale(x14)

x16 <- read.delim("C:/Users/Administrator/Desktop/o.txt")

View(x16)

x17 <- as.matrix(x16)

x18=scale(x17)

x19 <- read.delim("C:/Users/Administrator/Desktop/p.txt")

View(x19)

x20 <- as.matrix(x19)

x21=scale(x20)

x22 <- read.delim("C:/Users/Administrator/Desktop/r.txt")

View(x22)

x23 <- as.matrix(x22)

x24=scale(x23)

x25 <- read.delim("C:/Users/Administrator/Desktop/s.txt")

View(x25)

x26 <- as.matrix(x25)

x27=scale(x26)

x28 <- read.delim("C:/Users/Administrator/Desktop/t.txt")

View(x28)

x29 <- as.matrix(x28)

x30=scale(x29)

x31 <- read.delim("C:/Users/Administrator/Desktop/u.txt")

View(x31)

x32 <- as.matrix(x31)

x33=scale(x32)

x34 <- read.delim("C:/Users/Administrator/Desktop/v.txt")

View(x34)

x35 <- as.matrix(x34)

x36=scale(x35)

x37 <- read.delim("C:/Users/Administrator/Desktop/w.txt")

View(x37)

x38 <- as.matrix(x37)

x39=scale(x38)

x40 <- read.delim("C:/Users/Administrator/Desktop/x.txt")

View(x40)

x41 <- as.matrix(x40)

x42=scale(x41)

x43 <- read.delim("C:/Users/Administrator/Desktop/y.txt")

View(x43)

x44 <- as.matrix(x43)

x45=scale(x44)

x46 <- read.delim("C:/Users/Administrator/Desktop/z.txt")

View(x46)

x47 <- as.matrix(x46)

x48=scale(x47)

#绘制小提琴图

vioplot(x3,x6,x9,x12,x15,x18,x21,x24,x27,x30,x33,x36,x39,x42,x45,x48,names=c("cg","yf","yyf","ef","eyf","f","gen","zj","zz","bm","gc","bsz","yp","zl","js","dy"),col="green")

title("Violin Plot of  Stipagrostis pennata")

> #小提琴图中的白色的点表示中位数，黑色的框表示IQR，细黑线表示须，小提琴的胖瘦表示分布密度

所做图形如下所示：

降落