Sankey-Diagramme in R?

Question

Ich versuche, meinen Datenfluss mit einem Sankey Diagramm in R.

I this blog post zu einer R-Skript Verlinkung zu visualisieren, die ein Sankey Diagramm erzeugt, es ist leider ziemlich roh und etwas eingeschränkt (siehe unten für Beispielcode und Daten).

Kennt jemand andere Skripte - oder vielleicht sogar ein Paket - das ist mehr entwickelt? Mein Endziel ist es, sowohl den Datenfluss als auch die Prozentsätze nach der relativen Größe der Diagrammkomponenten zu visualisieren, wie in these examples of Sankey Diagrams.

Ich postete a somewhat similar question on the r-help list, aber nach zwei Wochen ohne irgendwelche Antworten versuche ich mein Glück hier auf stackoverflow.

Danke, Eric

PS. Ich bin mir der Parallel Sets Plot bewusst, aber das ist nicht das, wonach ich suche.

# 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") 

Sankey-Diagramm mit dem obigen Code erzeugt,

Answer 1

durch these definitions Beurteilung diese Funktion, wie der parallelen Sätze Plot, fehlt die Fähigkeit, zu spalten und zu kombinieren Ströme (das heißt durch mehr als einen Übergang).

Seit Sankey diagrams are directed weighted graphs könnte ein Paket wie qgraph nützlich sein.

Die Funktion SankeyR bietet klarere Beschriftungen, wenn Sie die Verluste in absteigender Reihenfolge sortieren, da der Text näher an den Pfeilspitzen platziert wird, ohne sich zu überlappen.

Answer 2

Wenn Sie es mit R machen wollen, scheint Ihr bestes Gebot @Roman Vorschlag zu sein - hacken Sie die SankeyR Funktion. Zum Beispiel - unten ist meine sehr schnelle Lösung - orientieren Sie einfach die Beschriftungen vertikal, verschieben Sie sie leicht und verringern Sie die Schrift für die Eingabefragmente, damit sie ein wenig besser aussieht. Diese Modifikation ändert sich nur Linie 171 und 223 in der SankeyR Funktion:

#line171 - change oversized font size of input label 
    fontsize = max(0.5,frInputs[j]*1.5)#1.5 instead of 2.5 

    #line223 - srt changes from 35 to 90 to orient labels vertically, 
    #and offset adjusts them to get better alignment with arrows 
    text(txtX, txtY, fullLabel, cex=fontsize, pos=4, srt=90, offset=0.1) 

Ich bin kein Ass in Trigonometrie, aber das ist wirklich das, was Sie für die Änderung der Richtung der Pfeile müssen. Das wäre meiner Meinung nach ideal - wenn Sie die Pfeile korrigieren könnten, so dass sie horizontal und nicht vertikal ausgerichtet sind. Ansonsten, warum meine Lösung das Problem mit Etiketten Ausrichtung behebt, macht es das Diagramm nicht viel lesbarer ...

Answer 3

Ich habe ein Paket erstellt (riverplot), die eine etwas andere, aber überlappende Funktionalität im Vergleich zu den Sankey hat Funktion und kann Plots wie diese produzieren:

Answer 4

dieses Grundstück kann durch das networkD3 Paket erstellt werden. Es ermöglicht Ihnen, interaktive Sankey-Diagramme zu erstellen. Hier finden Sie eine example. Ich habe auch einen Screenshot hinzugefügt, damit Sie eine Idee haben, wie es aussieht.

Answer 5

Neben rCharts, jetzt Sankey Diagramme auch in R mit googleVis (Version> = 0.5.0) erzeugt werden kann. Zum Beispiel beschreibt das post die Erzeugung des folgenden Diagramm googleVis mit:

Answer 6

haben einen Blick auf //sankeybuilder.com wie es eine fertige Lösung bietet gehen, wo Sie Ihre Daten und Wiedergabe Variationen im Laufe der Zeit hochladen. Der Übergang funktioniert gut (ähnlich wie bei der Youtube-Demo in Ihrer Frage). Wenn Sie die SankeyTrend-Demo laden, enthält sie viele Zeitfenster (Datenjahre). Einmal geladen (erstellt automatisch), klicken Sie auf die Wiedergabe-Schaltfläche in der oberen rechten Ecke der Seite für die Wiedergabe der Zeitfenster, Sie können sogar die Zeit anhalten und fortsetzen. Demo-URL ist hier: SankeyTrend Hoffe das hilft Ihnen bei der Suche nach dem perfekten Sankey-Diagramm.

Answer 7

Rs alluvial Paket wird dies auch tun (von).

# install.packages(c("alluvial"), dependencies = TRUE) 
require(alluvial) 

# Titanic data 
tit <- as.data.frame(Titanic) 

# 4d 
alluvial(tit[,1:4], freq=tit$Freq, border=NA, 
    hide = tit$Freq < quantile(tit$Freq, .50), 
    col=ifelse(tit$Class == "3rd" & tit$Sex == "Male", "red", "gray")) 

Answer 8

plotly hat die gleiche Leistung wie networkD3 Paket (example link).

Answer 9

Gerade Open Source ein Paket, das ein alluvialen Diagramm verwendet Workflowstufen sichtbar zu machen. Da die Geschichte beibehalten wird, wenn die alluviale Form verwendet wird, gibt es keine Übergänge in den Kanten.

https://github.com/claytontstanley/shiny.alluvial