介绍
以桑基图形式展示数据分布情况
加载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,