一文掌握小提琴图的所有画法

install.packages("ggstatsplot")
library(ggstatsplot)
data(mtcars)

ggbetweenstats(
  data = mtcars,
  x = am,
  y = mpg,
  plot.type = "boxviolin",
  #绘图类型，boxviolin是小提琴加箱式图
  type = "parametric",
  #统计类型
  pairwise.annotation = "p.value",
  #用于成对比较的注释字符，或"asterisk"
  p.adjust.method = "holm",
  #p值校正方法
  notchwidth = 0.5,
  #对于有缺口的箱形图，缺口相对于主体的宽度(默认为0.5)
  linetype = "solid",
  title = "Fuel efficiency by type of car transmission",
  caption = "Transmission (0 = automatic, 1 = manual)",
)

ggbetweenstats(
  data = mtcars,
  x = am,
  y = mpg,
  plot.type = "violin",
  type = "parametric",
  pairwise.annotation = "p.value",
  p.adjust.method = "holm",
  linetype = "solid",
  title = "Fuel efficiency by type of car transmission",
  caption = "Transmission (0 = automatic, 1 = manual)",
)

install.packages("vioplot")
library(vioplot)
data("diamonds", package = "ggplot2")
fix(diamonds)

palette <- RColorBrewer::brewer.pal(9, "Pastel1")
par(mfrow=c(3, 1))
#一个图版显示3行,1列
vioplot(price ~ cut, data = diamonds, las = 2, col = palette)
#根据cut分组展示price
#las= 1是水平展示横坐标标签，las = 2为纵向展示
vioplot(price ~ clarity, data = diamonds, las = 2, col = palette)
vioplot(price ~ color, data = diamonds, las = 2, col = palette)

library(ggplot2)
data("diamonds")
ggplot(diamonds, aes(x=cut, y=price)) +
geom_violin(trim=FALSE,aes(fill=factor(cut))) +
  #"trim"为TRUE(默认值),将小提琴的尾部修剪到数据范围。如果为FALSE,不修剪尾部。
  geom_boxplot(width=0.1,position=position_dodge(0.8))+ #绘制箱线图
  theme_bw()+
  #背景变为白色
  theme(panel.grid.major = element_blank(),   
        panel.grid.minor = element_blank(),
        #不显示网格线
        panel.border = element_blank(),
        #去除外框线
        axis.line = element_line(colour = "black",size=2)
        #将x轴和y轴加粗显示
        )

library(hrbrthemes)#ggplot2的主题和相关组件包
library(viridis) #是Matplotlib的新默认颜色映射
ggplot(diamonds, aes(x=cut, y=price)) +
  geom_violin(trim=FALSE,aes(fill=factor(cut)),) +
  #geom_boxplot(width=0.1,position=position_dodge(0.8))+ #绘制箱线图
  scale_fill_viridis(discrete=TRUE) + #生成一个离散的调色板
  theme_ipsum() +  #使用Arial Narrow字体
  theme(
    legend.position="none" #不加图例
  ) +
  coord_flip() #翻转坐标

install.packages("ggnormalviolin")
library(ggplot2)
library(ggnormalviolin)
library(ggthemes) #图形背景主题包
#建一个用于绘图的数据框

d <- data.frame(
  Distribution = c("A", "B"),
  Distribution_mean = c(80, 90),
  Distribution_sd = c(15, 10))
d

ggplot(data = d, aes(x = Distribution)) +
  geom_normalviolin(aes(mu = Distribution_mean,
         #mu是正态分布的均值
                        sigma = Distribution_sd),
         #sigma是正态分布的标准差
         width=0.5,
         #小提琴图的宽
         color="black",
         #小提琴图外框线的颜色
         size=2,
         #小提琴图外框线的粗细
         linetype=2,
         #小提琴图外框线的类型
         fill="yellow"
         #fill=c("yellow","red")
         #小提琴图内部填充的颜色
                    )+
         theme_wsj() #换主题

install.packages("ggpubr")
library(ggpubr)
data("ToothGrowth")
df <- ToothGrowth
ggviolin(df, "dose", "len", color = "dose",
         palette = c("#00AFBB", "#E7B800", "#FC4E07"), #颜色
         add = "boxplot"
#小提琴加箱式图
)

ggviolin(df, "dose", "len", color = "dose",
         palette = c("#00AFBB", "#E7B800", "#FC4E07"),
         add = "dotplot"
#小提琴加散点图
)

ggviolin(df, "dose", "len", color = "supp",
         palette = c("#00AFBB", "#E7B800"), add = "boxplot")