对角线网络中的 R 着色边（）

Question

我正在探索 networkD3 的特性，diagonalNetwork 函数。

下面是玩具示例

library(networkD3)
URL <- paste0(
        "https://cdn.rawgit.com/christophergandrud/networkD3/",
        "master/JSONdata//flare.json")

Flare <- jsonlite::fromJSON(URL, simplifyDataFrame = FALSE)

Flare$children = Flare$children[1:3]

diagonalNetwork(List = Flare, fontSize = 10, opacity = 0.9)

我想知道是否有任何选项可以只为节点集群下的边缘着色。这个不重要，力求完美

提前致谢。

Answer 1

不是直接的，但是如果您知道要着色的链接的索引，您可以像这样将一些 JavaScript 注入 linkColour 参数...

library(networkD3)
URL <- paste0(
  "https://cdn.rawgit.com/christophergandrud/networkD3/",
  "master/JSONdata//flare.json")

Flare <- jsonlite::fromJSON(URL, simplifyDataFrame = FALSE)

Flare$children = Flare$children[1:3]

linkColourJS <- JS(paste0('function(d, i) { return i > 24 && i < 29 ? "red" : "#ccc"; }'))

diagonalNetwork(List = Flare, fontSize = 10, opacity = 0.9, linkColour = linkColourJS)

对角线网络中的 R 着色边（）

R Coloring Edges in diagonalNetwork()

r

graph-coloring

networkd3