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

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

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对齐网络中的着色边缘（）

1 个答案: