Укажите цвета для каждой ссылки в сети, направленной против силы, networkD3 :: forceNetwork()

Question

Вопрос заключается в том, чтобы указать два разных цвета на основе значения или веса ссылки, используя networkD3::forceNetwork в R. Например, Blue для веса связывает больше чем 1, dark на вес ссылок меньше 1.

Пример кода, скопированного из here (раздел forceNetwork):

library(networkD3) 
# Load data 
data(MisLinks) 
data(MisNodes) 

# Plot 
forceNetwork(Links = MisLinks, Nodes = MisNodes, 
     Source = "source", Target = "target", 
     Value = "value", NodeID = "name", 
     Group = "group", opacity = 0.8) 

d3-JS связан вопрос here (я ничего не знаю о JS до сих пор).

Answer 1

Я только имел такую ​​же проблему работы с networkD3.
Вы можете сделать это путем предоставления вектора в зависимости от значений MisLinks$value с помощью функции ifelse:

forceNetwork(Links = MisLinks, Nodes = MisNodes, 
     Source = "source", Target = "target", 
     Value = "value", NodeID = "name", 
     Group = "group", opacity = 0.8, 
     linkColour = ifelse(MisLinks$value > 1, "blue","black")) 

Это решение не зависит от знания javascript.
Надеюсь, это поможет.

Answer 2

Я думаю, вы должны иметь возможность передать функцию javascript, завернутую в JS, в linkColour, чтобы получить цвета на основе значений в MisLinks. Например, вернуться синие ссылки для значений> 1 и красный для значений < = 1.

forceNetwork(Links = MisLinks, Nodes = MisNodes, 
      Source = "source", Target = "target", 
      Value = "value", NodeID = "name", 
      Group = "group", opacity = 0.8, 
      linkColour = JS('function(l) { return l.value > 1 ? "#00F" : "#F00" }'))