data <- read.csv("/home/mgaughan/git/adaptation-slr/cites/053025_olmo_categorized_citations.csv")

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