Sankey Networks in R: with Javascript Network D3 or GGforce

Question

Recently, I have been learning about Sankey Diagrams and have been trying to recreate them in R (https://rpubs.com/dmormandy/DV_Sankey).

Here is my imaginary problem: