r NetworkD3 Sankey在R中创建非常混乱的链接，即使我的代码应该很好。怎么了？

Question

我正在尝试创建一个Sankey图，但是连接都弄乱了。这是我的数据：

#> A tibble: 61 x 3
#> # Groups:   id_2 [55]
#>     id_2 origin                target                     
#>    <int> <fct>                 <chr>                      
#>  1     4 Pendlerkort i app     Rejsekort                  
#>  2    38 Ungdomskort           Rejsekort                  
#>  3    84 Rejsekort             Rejsekort                  
#>  4    89 Rejsekort             Pendlerkort i app          
#>  5    95 Rejsekort             Rejsekort                  
#>  6   112 Rejsekort Pendlerkort Rejsekort                  
#>  7   118 Pendler20             Rejsekort med pendler kombi
#>  8   140 Pendlerkort i app     Rejsekort                  
#>  9   167 DSB Orange            Pendler20                  
#> 10   193 Rejsekort             Rejsekort                  
#> # ... with 51 more rows

sankey_plot <- 
  tibble::tribble(
    ~id_2,  ~origin,                  ~target,
    4L,     "Pendlerkort i app",      "Rejsekort",
    38L,    "Ungdomskort",            "Rejsekort",
    84L,    "Rejsekort",              "Rejsekort",
    89L,    "Rejsekort",              "Pendlerkort i app",
    95L,    "Rejsekort",              "Rejsekort",
    112L,   "Rejsekort Pendlerkort",  "Rejsekort"
  )

然后我运行以下代码：

# create nodes
nodes <- data.frame(
  name=c(as.character(sankey_plot$origin),
         as.character(sankey_plot$target)) %>% unique()
)

# Get values  
sankey_plot <- sankey_plot %>% group_by(origin, target) %>% 
  summarise(values = n())

sankey_plot <- sankey_plot %>% 
  dplyr::ungroup()

# Create source and target ID's
sankey_plot$IDsource <- match(sankey_plot$origin, nodes$name)-1 
sankey_plot$IDtarget <- match(sankey_plot$target, nodes$name)-1

# Plot
sankeyNetwork(Links = sankey_plot, Nodes = nodes,
              Source = "IDsource", Target = "IDtarget",
              Value = "values",
              NodeID = "name",
              # fontSize = 10 
              nodeWidth = 20,
              sinksRight = TRUE)

这给我一个杂乱的情节，看起来像这样：

我不知道我在做什么错。我试图以几种不同的方式创建节点。另外，我不group_by（），只需让每一行代表每个运动（而不是计数）。情节最终看起来相同

Answer 1

鉴于您提供的示例数据，可以预期循环。例如，第3行代表以同一节点启动和结束的链接，第1行表示遵循“ rejsekort”节点的节点（“ pendlerkort i app”）的链接，然后链接到“ rejsekort”节点再次。

sankey_plot
#> # A tibble: 5 × 5
#>   origin                target            values IDsource IDtarget
#>   <fct>                 <chr>              <int>    <dbl>    <dbl>
#> 1 Pendlerkort i app     Rejsekort              1        0        2
#> 2 Rejsekort             Pendlerkort i app      1        2        0
#> 3 Rejsekort             Rejsekort              2        2        2
#> 4 Rejsekort Pendlerkort Rejsekort              1        3        2
#> 5 Ungdomskort           Rejsekort              1        1        2

如果您期望的是有不同的节点都具有相同的名称“ Rejsekort”，那么您将不得不区分数据中的这些节点。

library(dplyr)
library(networkD3)


sankey_plot <- 
  tibble::tribble(
  ~id_2,  ~origin,                  ~target,
  4L,     "Pendlerkort i app",      "Rejsekort",
  38L,    "Ungdomskort",            "Rejsekort",
  84L,    "Rejsekort",              "Rejsekort",
  89L,    "Rejsekort",              "Pendlerkort i app",
  95L,    "Rejsekort",              "Rejsekort",
  112L,   "Rejsekort Pendlerkort",  "Rejsekort"
)

dupe_targets <- sankey_plot$target == "Rejsekort"
sankey_plot$target[dupe_targets] <-
  paste0(sankey_plot$target[dupe_targets], "_", seq_along(sankey_plot$target[dupe_targets]))

sankey_plot$values <- 1

# create nodes
nodes <- data.frame(
  name=c(as.character(sankey_plot$origin),
         as.character(sankey_plot$target)) %>% unique()
)

# Create source and target ID's
sankey_plot$IDsource <- match(sankey_plot$origin, nodes$name)-1 
sankey_plot$IDtarget <- match(sankey_plot$target, nodes$name)-1


sankey_plot
#> # A tibble: 6 × 6
#>    id_2 origin                target            values IDsource IDtarget
#>   <int> <chr>                 <chr>              <dbl>    <dbl>    <dbl>
#> 1     4 Pendlerkort i app     Rejsekort_1            1        0        4
#> 2    38 Ungdomskort           Rejsekort_2            1        1        5
#> 3    84 Rejsekort             Rejsekort_3            1        2        6
#> 4    89 Rejsekort             Pendlerkort i app      1        2        0
#> 5    95 Rejsekort             Rejsekort_4            1        2        7
#> 6   112 Rejsekort Pendlerkort Rejsekort_5            1        3        8


sankeyNetwork(Links = sankey_plot, Nodes = nodes,
              Source = "IDsource", Target = "IDtarget",
              Value = "values",
              NodeID = "name",
              # fontSize = 10 
              nodeWidth = 20,
              sinksRight = TRUE)