R sankeynetwork заставляет узлы течь слева направо

Question

Я использую пакет networkd3 в r для создания диаграммы sankeynetwork на основе этого примера: https://christophergandrud.github.io/networkD3/

Вот мой код:

# Load Packages        
library(dplyr)
library(networkD3)

# Read data
a0 <- 
  read.table(header = TRUE, stringsAsFactors = FALSE, text = 
    "from   to  value
    page1/page3 page1/page5/page6/page7 1589
    page1/page3 page1/page3 1172
    page1/page4/page5/  page1/page3 929
    page1/page4/page5/  page1/page4/page5/  834
    page1/page5/page6/page7 page1/page4/page5/  557
    page1/page5/page6/page7 page2/page8/page9/page11    546
    page1/page3 page1/page10/page5/page6/   400
    page1/page10/page5/page6/   page2/page8/page9/page11    373
    page2/page8/page9/page11    page1/page4/page5/  296
    page1/page4/page12/page13/page14    page1/page4/page12/page13/page15    282")

# Get list of distinct variable names, which are needed for nodes    
nodes <- data.frame(name = unique(c(a0$from, a0$to)))

# Create Nodes data frame    
nodes$id <- 0:(nrow(nodes) - 1)

# Create Links data frame    
links <- a0 %>%
  left_join((nodes %>% select(name, id)), 
            by = c("from" = "name")) %>%
  left_join((nodes %>% select(name,id)),
            by = c("to"="name")) %>%
  rename(source = id.x, target = id.y) %>% 
  select(-from,-to)

# Drop ID
nodes <- nodes %>% select(-id)

# Plot
sankeyNetwork(Links = links, Nodes = nodes, Source = 'source',
              Target = 'target', Value = 'value', NodeID = 'name',
              units = 'TWh', fontSize = 12, nodeWidth = 30, iterations = 0)

Вот итоговая диаграмма Санки:

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

Answer 1

Вам необходимо удалить циклические ссылки (исходный узел находится ниже по потоку от целевого узла).

Действительно простой способ сделать это - links <- links[links$source < links$target, ]

, например ...

# Load Packages

library(dplyr)
library(networkD3)

# Read data
a0 <- 
  read.table(header = TRUE, stringsAsFactors = FALSE, text = 
    "from   to  value
    page1/page3 page1/page5/page6/page7 1589
    page1/page3 page1/page3 1172
    page1/page4/page5/  page1/page3 929
    page1/page4/page5/  page1/page4/page5/  834
    page1/page5/page6/page7 page1/page4/page5/  557
    page1/page5/page6/page7 page2/page8/page9/page11    546
    page1/page3 page1/page10/page5/page6/   400
    page1/page10/page5/page6/   page2/page8/page9/page11    373
    page2/page8/page9/page11    page1/page4/page5/  296
    page1/page4/page12/page13/page14    page1/page4/page12/page13/page15    282")


# Get list of distinct variable names, which are needed for nodes

nodes <- data.frame(name = unique(c(a0$from,a0$to)))

# Create Nodes data frame

nodes$id <- 0:(nrow(nodes) - 1)

# Create Links data frame

links <- a0 %>%
  left_join((nodes %>% select(name,id)), 
            by = c("from" = "name")) %>%
  left_join((nodes %>% select(name,id)),
            by = c("to"="name")) %>%
  rename(source = id.x, target = id.y) %>% 
  select(-from,-to)

# Drop ID
nodes <- nodes %>% select(-id)

# remove cyclical links (source node is downstream from target node)
links <- links[links$source < links$target, ]

# Plot
sankeyNetwork(Links = links, Nodes = nodes, Source = 'source',
              Target = 'target', Value = 'value', NodeID = 'name',
              units = 'TWh', fontSize = 12, nodeWidth = 30, iterations = 0)