r - linearNetwork() の 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)

ノードクラスターの下のエッジだけに色を付けるオプションがあるかどうか疑問に思っています。これは重要ではありませんが、完璧を目指すだけです。

前もって感謝します。