I am trying to visualize my data flow with a Sankey Diagram in R.

I found [this blog post](http://biologicalposteriors.blogspot.com/2010/07/sankey-diagrams-in-r.html) linking to an R script that produces a Sankey Diagram; unfortunately, it&#39;s quite raw and somewhat limited (see below for sample code and data).

Does anyone know of other scripts—or maybe even a package—that is more developed? My end goal is to visualize both data flow and percentages by relative size of diagram components, like in [these  examples of Sankey Diagrams](http://www.sankey-diagrams.com/tag/software/). 

I posted [a somewhat similar question on the r-help list](http://tolstoy.newcastle.edu.au/R/e17/help/12/03/7682.html), but after two weeks without any responses I&#39;m trying my luck here on stackoverflow.

Thanks,
Eric

PS. I&#39;m aware of the [Parallel Sets Plot](https://stats.stackexchange.com/questions/12029/is-it-possible-to-create-parallel-sets-plot-using-r), but that is not what I&#39;m looking for.

    # thanks to, https://tonybreyal.wordpress.com/2011/11/24/source_https-sourcing-an-r-script-from-github/
      sourc.https     &lt;- function(url, ...) {
    # install and load the RCurl package 
    if (match(&#39;RCurl&#39;, nomatch=0, installed.packages()[,1])==0) {
      install.packages(c(&quot;RCurl&quot;), dependencies = TRUE)
      require(RCurl)  
    } else require(RCurl)    

    # parse and evaluate each .R script
      sapply(c(url, ...), function(u) {
        eval(parse(text = getURL(u, followlocation = TRUE, 
        cainfo  = system.file(&quot;CurlSSL&quot;, &quot;cacert.pem&quot;, 
        package = &quot;RCurl&quot;))), envir = .GlobalEnv)
     } )
     }
    
    # from https://gist.github.com/1423501
    sourc.https(&quot;https://raw.github.com/gist/1423501/55b3c6f11e4918cb6264492528b1ad01c429e581/Sankey.R&quot;)
    
    # My example (there is another example inside Sankey.R):
    inputs = c(6, 144)
    losses = c(6,47,14,7, 7, 35, 34)
    unit = &quot;n =&quot;
    
    labels = c(&quot;Transfers&quot;,
               &quot;Referrals\n&quot;,
               &quot;Unable to Engage&quot;,
               &quot;Consultation only&quot;,
               &quot;Did not complete the intake&quot;,
               &quot;Did not engage in Treatment&quot;,
               &quot;Discontinued Mid-Treatment&quot;,
               &quot;Completed Treatment&quot;,
               &quot;Active in \nTreatment&quot;)
    
    SankeyR(inputs,losses,unit,labels)
    
    # Clean up my mess
    rm(&quot;inputs&quot;, &quot;labels&quot;, &quot;losses&quot;, &quot;SankeyR&quot;, &quot;sourc.https&quot;, &quot;unit&quot;)

Sankey Diagram produced with the above code, ![Sankey Diagram produced with the code above][1]

  [1]: http://i.stack.imgur.com/9jiMq.png

All Sankey Diagram Solutions on Gang of Coders

Total of 1 Sankey Diagram Solutions

Sankey Diagrams in R?