ggalluvial ggplot2桑基图基础绘制

> Number=c(20,20,20,20,20,20,20,20,20)
> ck=c('A','A','A',
+      'D','D','D',
+      'B','B','B')
> treat=c('A','D','B',
+         'D','A','B',
+         'B','A','D')
> class=c('A','A','A','D','D','D','B','B','B')
> data <- data.frame(ck,treat,Number,class)
> data
  ck treat Number class
1  A     A     20     A
2  A     D     20     A
3  A     B     20     A
4  D     D     20     D
5  D     A     20     D
6  D     B     20     D
7  B     B     20     B
8  B     A     20     B
9  B     D     20     B
> ggplot(data, aes(y = Number, axis1 = ck, axis2 = treat)) +  # 使用 data 数据框，设置 y 轴为 Number，axis1 轴为 ck，axis2 轴为 treat
    geom_flow() +  # 添加流向图
    geom_alluvium(aes(fill = class)) +  # 添加 alluvium 层，根据 class 变量填充颜色
    guides(fill = "none") +  # 去除图例
    geom_stratum(alpha = 0.01) +  # 添加 stratum 层，设置透明度为 0.01
    scale_fill_manual(values = c("#FF7330", "#34C759", "#303B75")) +  # 手动设置填充颜色的取值范围
    geom_text(stat = "stratum", size = 5, aes(label = after_stat(stratum))) +  # 在 stratum 层上添加标签，标签内容为 stratum
    theme_void() +  # 使用无轴及网格线的主题
    ggtitle("Transition model") +  # 设置图表标题为 "Transition model"
    theme(plot.title = element_text(hjust = 0.5, vjust = -3), title = element_text(size = 20))  # 设置标题的对齐和字体大小