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