對角線網絡（）中的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)