ggplot_Violin Plot & dot plot

rm(list = ls())
# 获取示例数据
get_data <- function() {
  data("ToothGrowth")
  ToothGrowth$dose <- as.factor(ToothGrowth$dose)
  return(ToothGrowth)
}


# 数据集
# @len 目标变量， 为连续变量
# @ dose 分组变量，需要转换为因子
# @ supp 分组变量，需要转换为因子
ToothGrowth <- get_data()

# 需要的包

library(ggplot2)
library(patchwork)
library(tidyverse)
# 绘图
# 基本绘图参数设置
p <- ToothGrowth %>%  ggplot(aes(x = dose, y = len))

# 添加小提琴图并添加统计均值和标准差
p1 <- p + geom_violin(trim = FALSE) +
  stat_summary(
    fun.data = "mean_sdl",
    fun.args = list(mult = 1),
    geom = "pointrange",
    color = "black"
  )

# 添加分组颜色、箱式图
p2 <- p + geom_violin(aes(fill = dose), trim = FALSE) +
  geom_boxplot(width = 0.2) +
  scale_fill_manual(values = c("#00AFBB", "#E7B800", "#FC4E07")) +
  # 去除图例
  theme(legend.position = "none")

p1 + p2

# 多组图
# supp通过颜色显示，并设立图例
p + geom_violin(aes(color = supp), trim = FALSE, position = position_dodge(0.9)) +
  # 添加箱式图
  geom_boxplot(aes(color = supp), width = 0.15, position = position_dodge(0.9)) +
  # 自定义配色方案
  scale_color_manual(values = c("#00AFBB", "#E7B800"))

# 点图绘制并添加均值和标准差
p3 <-
  p + geom_dotplot(binaxis = "y",
                   stackdir = "center",
                   fill = "lightgray") +
  stat_summary(fun.data = "mean_sdl", fun.args = list(mult = 1))

# 点图和箱式图的合并
p4 <-  p + geom_boxplot(width = 0.5) +
  geom_dotplot(binaxis = "y",
               stackdir = "center",
               fill = "lightgray")

# 点图和小提琴图合并
p5 <- p + geom_violin(trim = FALSE) +
  geom_dotplot(binaxis = 'y',
               stackdir = 'center',
               fill = "#999999") +
  stat_summary(fun.data = "mean_sdl",  fun.args = list(mult = 1))
p3 + p4 + p5

# 多组点图

# 分组信息展示为添加颜色
p6 <- p + geom_boxplot(width = 0.5) +
  geom_dotplot(aes(fill = supp), binaxis = 'y', stackdir = 'center') +
  scale_fill_manual(values = c("#00AFBB", "#E7B800"))

# 将箱式图分开，并设置间隔为0.8
p7 <-
  p + geom_boxplot(aes(color = supp), width = 0.5, position = position_dodge(0.8)) +
  geom_dotplot(
    aes(fill = supp, color = supp),
    binaxis = 'y',
    stackdir = 'center',
    dotsize = 0.8,
    position = position_dodge(0.8)
  ) +
  scale_fill_manual(values = c("#00AFBB", "#E7B800")) +
  scale_color_manual(values = c("#00AFBB", "#E7B800"))

p6 + p7