Sankey diyagramı R

Question

R's networkD3 paketinin yardımı ile oldukça genel bir Sankey diyagramı yapmaya çalışıyorum. Sadece başvuru için - burada sonuçlanır paketin kılavuzuna

library(networkD3) 
library(jsonlite) 
library(magrittr) 

energy <- "https://cdn.rawgit.com/christophergandrud/networkD3/master/JSONdata/energy.json" %>% 
     fromJSON 

sankeyNetwork(Links = energy$links, 
       Nodes = energy$nodes, 
       Source = "source", 
       Target = "target", 
       Value = "value", 
       NodeID = "name", 
       units = "TWh", 
       fontSize = 12, 
       nodeWidth = 30) 

den örnek:

My oldukça basit uzantısı aşağıdaki temel verilerle bir diyagram inşa oluşur

:

links <- structure(list(source = structure(c(1L, 2L, 3L, 1L, 2L, 3L, 4L, 
             5L, 4L, 5L), 
             .Label = c("1", "2", "3", "4", "5"), 
             class = "factor"), 
        target = structure(c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 4L, 
             4L), 
             .Label = c("4", "5", "6", "7"), 
             class = "factor"), 
        value = c(88L, 774L, 1220L, 412L, 5335L, 96L, 3219L, 
           1580L, 111L, 7607L)), 
       row.names = c(NA, 10L), 
       class = "data.frame", 
       .Names = c("source", "target", "value")) 

nodes <- structure(list(lab = c("A", "B", "C", "D", "E", "F", "G")), 
       row.names = c(NA, -7L), 
       .Names = "lab", class = "data.frame") 

Bu basit uygulama sayesinde verilerim manuel örneği en yakın şekilde yansıtacak şekilde seçilmiştir. Karşılaştırılabilir işlevi çalıştırdığımda, ancak:

sankeyNetwork(Links = links, 
       Nodes = nodes, 
       Source = "source", 
       Target = "target", 
       Value = "value", 
       NodeID = "lab") 

Hiçbir şey olmuyor. Benim hatam nedir?

Answer 1

Eğer 0 adresinden source ve target numaralandırma başlatırsanız bu iyi çalışır:

# First coercing elements of links to numeric, so that we can subtract 1 
links[] <- lapply(links, function(x) as.numeric(as.character(x))) 
links[, 1:2] <- links[, 1:2] - 1 
sankeyNetwork(links, nodes, 'source', 'target', 'value', NodeID='lab')