Sankey-Diagramme in R?

Ich versuche, meinen Datenfluss mit einem Sankey-Diagramm in R zu visualisieren. Ich habe diesen Blog-Beitrag gefunden , der auf ein R-Skript verweist, das ein Sankey-Diagramm erstellt. Leider ist es ziemlich roh und etwas eingeschränkt (Beispielcode und Daten siehe unten). Kennt jemand andere...