我正在嘗試使用R中的Sankey Diagram可視化我的數據流。我發現此博客文章鏈接到生成Sankey Diagram的R腳本，不幸的是，它是原始的并且有點受限制（請參見下面的示例代碼和數據）。有誰知道其他腳本，或者甚至是軟件包，它們更發達？我的最終目標是通過圖表組件的相對大小來可視化數據流和百分比，就像這些Sankey Diagrams示例一樣。我在r-help列表上發布了一個類似的問題，但是兩周后沒有任何回應，我在這里嘗試了我的運氣。謝謝，埃里克PS。我知道Parallel Sets Plot，但這不是我想要的。# 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/1423501sourc.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 messrm("inputs", "labels", "losses", "SankeyR", "sourc.https", "unit")用以上代碼生成的Sankey圖， 用上面的代碼生成的Sankey圖