R networkD3 sankey -将所有链接的颜色更改为蓝色

Question

下面是我使用networkD3::sankeyNetwork()制作Sankey图表时使用的示例代码

library("networkD3")

a <- read.csv(header = TRUE, text = "
date,Data Center,Customer,companyID,source,target,value 
")

node_names <- unique(c(as.character(a$source), as.character(a$target)))
nodes <- data.frame(name = node_names)
links <- data.frame(source = match(a$source, node_names) - 1,
                    target = match(a$target, node_names) - 1,
                    value = a$value)

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

我想将所有链接的颜色更改为蓝色。我认为“联系小组”的论点可能会有所帮助。

Answer 1

向links data.frame中添加一个列，该列将指定每个链接的组(在您的示例中，它们都在同一个组中)。然后添加一个自定义颜色刻度命令，该命令将为该组指定“蓝色”。然后告诉sankeyNetwork()函数links data.frame中指定链接组的列的名称，并将它传递给您自定义的colorScale。

library("networkD3")

data <- read.csv(header = TRUE, text = "
date,Data Center,Customer,companyID,source,target,value 
6/1/2021,dcA,customer1,companyID1,open_list_view_1,open_card_2,1 
6/1/2021,dcA,customer1,companyID1,open_card_2,edit_card_3,1
6/1/2021,dcA,customer1,companyID1,edit_card_3,save_card_4,1 
6/1/2021,dcA,customer1,companyID1,save_card_4,back_to_card_list_5,2 
6/1/2021,dcA,customer1,companyID1,back_to_card_list_5,show_more_6,1
6/1/2021,dcA,customer1,companyID1,show_more_6,view_introduction_7,1
6/1/2021,dcA,customer1,companyID1,view_introduction_7,scroll_down_8,2
6/2/2021,dcA,customer2,companyID2,open_list_view_1,open_card_2,3
6/2/2021,dcA,customer2,companyID2,open_card_2,edit_card_3,1
6/2/2021,dcA,customer2,companyID2,edit_card_3,save_card_4,4
6/2/2021,dcA,customer2,companyID2,save_card_4,back_to_card_list_5,2 
6/2/2021,dcA,customer2,companyID2,back_to_card_list_5,show_more_6,1
6/2/2021,dcA,customer2,companyID2,show_more_6,view_introduction_7,1
6/2/2021,dcA,customer2,companyID2,view_introduction_7,scroll_down_8,5
")

node_names <- unique(c(as.character(data$source), as.character(data$target)))
nodes <- data.frame(name = node_names)
links <- data.frame(source = match(data$source, node_names) - 1,
                    target = match(data$target, node_names) - 1,
                    value = data$value)

links$linkgroup <- "linkgrp"

colourScale <- 
  'd3.scaleOrdinal()
     .domain(["linkgrp"])
     .range(["blue"].concat(d3.schemeCategory20))'

sankeyNetwork(Links = links, Nodes = nodes, Source = "source",
              Target = "target", Value = "value", NodeID = "name",
              sinksRight = FALSE, 
              LinkGroup = "linkgroup", 
              colourScale = colourScale)

​

​