使用R改变networkD3 sankeyNetwork中链接的颜色。

Question

我已经创建了一个 sankeyNetwork 使用 网络d3 在 r. 如何改变流线或链接的颜色？我想让流线和节点的颜色相同。

这是我的代码。

library(networkD3)
library(xlsx)
links <- read.xlsx("C:/Users/Administrator/Desktop/Book1.xlsx", sheetName = "links")
nodes <- read.xlsx("C:/Users/Administrator/Desktop/Book1.xlsx", sheetName = "nodes")

sankeyNetwork(Links = links, Nodes = nodes, Source = "source", Target = "target", Value = "value", NodeID = "Diagnosis", fontSize = 11, nodeWidth = 15, fontFamily = "arial", iterations = 0)

Answer 1

这里没有人可以重现你的例子，因为除了你之外，没有人可以访问你的例子。Book1.xlsx 文件，在你的桌面上（在这里阅读更多关于 做好可复制的例子). 然而，帮助文件中的 sankeyNetwork() (您可以通过输入 ?sankeyNetwork R控制台中）记录了 LinkGroup 参数，并在底部给出了一个使用它的例子。

LinkGroup - 字符串，指定链接中的组。用于给网络中的链接着色。

library(networkD3)

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

energy$links$energy_type <- sub(' .*', '', energy$nodes[energy$links$source + 1, 'name'])


sankeyNetwork(Links = energy$links, Nodes = energy$nodes, Source = 'source',
              Target = 'target', Value = 'value', NodeID = 'name',
              LinkGroup = 'energy_type')