ggalluvial_桑基图

需要的包

setwd("D:/R/working_documents1")
library(dplyr)
library(magrittr)
library(purrr)
library(tibble)
library(tidyr)
library(ggplot2)
library(readr)

library(ggalluvial)

编造数据

举个例子，我们有三个人，假设A，B,C,他们经常出门(名为name)，
然后呢，他们分别会去不同的地方(名为place的列)，但是，出门的目的(列名为obj)有时可能是玩，
也有可能 是工作，然后呢，每次出差，待的天数不定（列名为days)。

df_dat <- data.frame(name = rep(c("A", "B", "C"), each = 3), 
                     place = c("SH", "BJ", "NJ", "NJ", "BJ", rep("BJ", 3), "SH"),
                     obj = c(rep(c("eat", "play"),  each = 4), "eat"),
                     days = round(rnorm(9, 5, 2),