如何制作源和目标节点没有颜色的sankyplots以及如何制作图例来显示链接组的不同颜色

Question

我正在处理网络数据，希望使用r中networkd3包中的sankeyNetwork（）将其可视化。在我的数据帧中，我有一个源节点和一个目标节点、值以及一个分组列组。

< li >如何在不对节点着色的情况下绘制sankey图(源和目标都不着色)？ < li >我想通过变量组< code>LinkGroup = "group"给链接线着色，并且我想知道如何制作图例来显示链接的不同颜色实际上代表了组变量。

这是代码和数据框...

# Libraries
library(dplyr)
library(tidyr)
library(tibble)
library(networkD3)

# Load dataset from github

data <- read.table("https://raw.githubusercontent.com/holtzy/data_to_viz/master/Example_dataset/13_AdjacencyDirectedWeighted.csv", header=TRUE) %>%
  rownames_to_column() %>%
  gather(key = "key", value = "value", -rowname) %>%
  filter(value > 0) %>% 
  rename(source = rowname,  target =key) %>%
  select("source", "target", "value") %>%
  mutate(group = c(rep("A", 10), rep("B",7), rep("C", 8), rep("D", 10)))
nodes <- data.frame(name=c(as.character(data$source), as.character(data$target)) %>% unique())

data$IDsource=match(data$source, nodes$name)-1 
data$IDtarget=match(data$target, nodes$name)-1

# Make the Network
sankeyNetwork(Links = data,
              Nodes = nodes,
              Source = "IDsource",
              Target = "IDtarget",
              Value = "value",
              NodeID = "name", 
              sinksRight=FALSE,
              nodeWidth=40,
              fontSize=13,
              nodePadding=20,
              LinkGroup = "group")

Answer 1

您可以继续让链接节点根据其组自动选择颜色，并使用 NodeGroup = NULL 选项/参数有效地关闭节点的颜色

sankeyNetwork(Links = data,
              Nodes = nodes,
              Source = "IDsource",
              Target = "IDtarget",
              Value = "value",
              NodeID = "name", 
              sinksRight=FALSE,
              nodeWidth=40,
              fontSize=13,
              nodePadding=20,
              LinkGroup = 'group',
              NodeGroup = NULL)

networkD3没有任何内置的图例创建选项，但是，如果你想自己制作图例，你可能需要使用一组一致的颜色，这样你就可以用它们来制作图例。你可以这样做…

colourScale <- 
  'd3.scaleOrdinal()
     .domain(["A", "B", "C", "D"])
     .range(["red", "blue", "green", "yellow"])'

sankeyNetwork(Links = data,
              Nodes = nodes,
              Source = "IDsource",
              Target = "IDtarget",
              Value = "value",
              NodeID = "name", 
              sinksRight=FALSE,
              nodeWidth=40,
              fontSize=13,
              nodePadding=20,
              LinkGroup = 'group',
              NodeGroup = NULL,
              colourScale = colourScale)