Схема Sankey в R

Question

Попытка сделать довольно общую диаграмму Sankey с помощью пакета R's networkD3. Просто для справки - вот пример из руководства программ пакета

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) 

, что приводит к:

Мое довольно просто расширение состоит из построения диаграммы со следующими основными данными:

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

с этим простым приложением, выбранным так, чтобы мои данные наиболее точно соответствовали примеру руководства. Однако, если я выполняю сопоставимую функцию:

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

Ничего не происходит. Какая у меня ошибка?

Answer 1

Это прекрасно работает, если начать нумерацию вашего source и target в 0:

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