写毕业论文的时候老板提到要用一张图表示分类系统的变化，于是像到用桑基图来呈现这个变化的过程，具体操作步骤如下（越来越不喜欢写注释了，大家将就着看）：
输入表格如图：

表格格式

rm(list=ls())
setwd("D:\\List of Incertae sedis\\毕业论文")
library(ggalluvial)
library(ggplot2)
library(dplyr)

agar_taxa<-read.csv("表 蘑菇目不同分类系统对比.csv")

# 指定顺序
author_order <- c("Dentinger et al. 2016", "Vizzini et al. 2024", "This study")
# 然后将 Author列转换为因子，并指定顺序
agar_taxa$Author <- factor(agar_taxa$Author,levels = author_order)
# 画图
p <- ggplot(agar_taxa,
       aes(x = Author, stratum = Suborder, alluvium = Family,
           y = Freq,
           fill = Suborder, label = Suborder)) +
  scale_x_discrete(expand = c(.1, .1)) +
  geom_flow() +
  geom_stratum(alpha = .5) +
  geom_text(stat = "stratum", size = 3) +
  theme(legend.position = "none",
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        axis.line = element_blank(),
        axis.text.y = element_blank(),
        axis.ticks.y = element_blank(),
        axis.title.x = element_blank(),
        axis.title.y = element_blank(),
        axis.text.x = element_text(size=12))
ggsave("plot.png",plot = p,width=10,height=8,dpi=300)

出图