Diagrammes de Sankey dans R?

J'essaie de visualiser mon flux de données avec un diagramme de Sankey dans R. J'ai trouvé ce billet de blog lié à un script R qui produit un diagramme de Sankey, malheureusement il est assez brut et quelque peu limité (voir ci-dessous pour un exemple de code et des données). Quelqu'un connaît-il...