Diagramas de Sankey en R?

Estoy tratando de visualizar mi flujo de datos con un diagrama de Sankey en R. Encontré esta publicación de blog enlazada a un script R que produce un Diagrama de Sankey, desafortunadamente es bastante crudo y algo limitado (vea a continuación el código y los datos de muestra). ¿Alguien sabe...