Диаграммы Санки в R?

I Я пытаюсь визуализировать свой поток данных с помощью диаграммы Санки в R.

Я нашел этот пост в блоге, ссылающийся на сценарий R, который создает диаграмму Санки, к сожалению, он довольно сырой и несколько ограниченный (см. ниже для пример кода и данных).

Кто-нибудь знает другие скрипты или, может быть, даже пакет, который более развит? Моя конечная цель — визуализировать как поток данных, так и проценты по относительному размеру компонентов диаграммы, как в эти примеры диаграмм Санки.

Я опубликовал несколько похожий вопрос в списке r-help, но после двух недель без ответа я попытаю счастья здесь, в stackoverflow.

] Спасибо, Эрик

PS. Я знаю о Графике параллельных наборов, но это не то, что я ищу.

# thanks to, https://tonybreyal.wordpress.com/2011/11/24/source_https-sourcing-an-r-script-from-github/
  sourc.https     <- function(url, ...) {
# install and load the RCurl package 
if (match('RCurl', nomatch=0, installed.packages()[,1])==0) {
  install.packages(c("RCurl"), 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("CurlSSL", "cacert.pem", 
    package = "RCurl"))), envir = .GlobalEnv)
 } )
 }

# from https://gist.github.com/1423501
sourc.https("https://raw.github.com/gist/1423501/55b3c6f11e4918cb6264492528b1ad01c429e581/Sankey.R")

# My example (there is another example inside Sankey.R):
inputs = c(6, 144)
losses = c(6,47,14,7, 7, 35, 34)
unit = "n ="

labels = c("Transfers",
           "Referrals\n",
           "Unable to Engage",
           "Consultation only",
           "Did not complete the intake",
           "Did not engage in Treatment",
           "Discontinued Mid-Treatment",
           "Completed Treatment",
           "Active in \nTreatment")

SankeyR(inputs,losses,unit,labels)

# Clean up my mess
rm("inputs", "labels", "losses", "SankeyR", "sourc.https", "unit")

Диаграмма Санки, созданная с помощью вышеуказанного кода,