admin管理员组

文章数量:1303654

The question is to specify two different colors based on the Value or weight of the link using networkD3::forceNetwork in R. For example, Blue for the weight of links more than 1, dark for the weight of links less than 1.

Example code, copied from here (the forceNetwork section):

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)

A d3-js related question is here (I know nothing about JS so far).

The question is to specify two different colors based on the Value or weight of the link using networkD3::forceNetwork in R. For example, Blue for the weight of links more than 1, dark for the weight of links less than 1.

Example code, copied from here (the forceNetwork section):

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)

A d3-js related question is here (I know nothing about JS so far).

Share Improve this question edited Jan 26, 2018 at 10:23 zx8754 56.2k12 gold badges125 silver badges225 bronze badges asked Dec 27, 2015 at 13:22 Zhilong JiaZhilong Jia 2,3691 gold badge23 silver badges35 bronze badges
Add a ment  | 

2 Answers 2

Reset to default 7

I think you should be able to pass a javascript function wrapped in JS to linkColour to get colors based on the values in MisLinks. For example, return blue links for values > 1 and red for values <= 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" }'))

I've just had the same problem working with networkD3.
You can do that by providing a vector depending on the values of MisLinks$value using the ifelse function:

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

This solution does not depend on knowing javascript.
Hope this helps.

本文标签: