Кто-нибудь знает, почему моя SankeyNetwork не отображается (по-видимому, нет ошибки)?

Question

Я написал следующий код, и все работает, но когда я ожидаю, что grpah появится на экране средства просмотра, он не появится.

library(networkD3)

links <- read.csv("C:/Users/tul45082/Desktop/CMA/DNA/linksV2.csv")
nodes <- read.csv("C:/Users/tul45082/Desktop/CMA/DNA/nodesV2.csv")

links$group <- as.factor(c("type_a", "type_b", "type_c", "type_d", 
                            "type_e","type_a", "type_a", "type_a", "type_b", 
                            "type_b","type_b", "type_b", "type_b", "type_c", 
                            "type_c","type_c", "type_c", "type_c", "type_d", 
                            "type_d","type_d", "type_e", "type_e", "type_e"))

nodes$group <- as.factor(c("n1","n2","n2","n2","n2","n2","n3","n3","n3","n3",
                            "n3","n3","n3","n3","n3","n3","n3","n3","n3","n3",
                            "n3","n3","n3","n3","n3"))

my_color <- 'd3.scaleOrdinal() . domain(["type_a","type_b", "type_c","type_d","type_e"])
.range(["#F3EAD1","#C8AE81","#B38C5A","#A38550","#522915"])'


sn <- sankeyNetwork(Links = links, Nodes = nodes, Source = "source",
              Target = "target", Value = "value", NodeID = "names", 
              colourScale = my_color, LinkGroup = "group", 
              NodeGroup="group",fontSize = 10,fontFamily = "Arial", 
              nodeWidth = 0.5,nodePadding = 10, sinksRight = FALSE)
sn

Заранее спасибо за вашу помощь!

Answer 1

выглядит, как будто ваш фрейм данных не идеален.

Сравните ваши данные с примером набора данных, показанным в документации sankeyNetwork.

energy <- jsonlite::fromJSON('https://cdn.rawgit.com/christophergandrud/networkD3/master/JSONdata/energy.json')
str(energy)

List of 2
 $ nodes:'data.frame':    48 obs. of  1 variable:
  ..$ name: chr [1:48] "Agricultural 'waste'" "Bio-conversion" "Liquid" "Losses" ...
 $ links:'data.frame':    68 obs. of  3 variables:
  ..$ source: int [1:68] 0 1 1 1 1 6 7 8 10 9 ...
  ..$ target: int [1:68] 1 2 3 4 5 2 4 9 9 4 ...
  ..$ value : num [1:68] 124.729 0.597 26.862 280.322 81.144 ...

Затем сделайте ваши данные mimi c примером набора данных как можно ближе.