data <- read.csv("/home/mgaughan/git/adaptation-slr/060225_olmo_categorized_citations.csv")
table(data$X2)

# ggsankey
# https://r-charts.com/flow/sankey-diagram-ggplot2/