Create sankey_cost.r