介绍 

以桑基图形式展示数据分布情况

加载R包

knitr::opts_chunk$set(message = FALSE, warning = FALSE)
library(tidyverse)
library(ggalluvial)# rm(list = ls())
options(stringsAsFactors = F)
options(future.globals.maxSize = 10000 * 1024^2)

导入数据

metadata <- read.csv("Data_summary.csv")head(metadata)

颜色准备

useMyCol <- function(platte = NULL,n = NULL,showAll = FALSE){#---------------------------------------------------------------# Primarily Discrete Palettes#---------------------------------------------------------------# ==================&#