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

Question

我已经使用r中的networkd3创建了一个sankeyNetwork。如何更改流线或链接的颜色？我希望流线与节点的颜色相同。

以下是我的代码:

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（）的帮助文件（您可以通过在R控制台中键入？sankeyNetwork来访问它）记录了

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

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')