我真的很喜欢这个网络的样子:
资料来源:https://christophergandrud.github.io/networkD3/
每个扇区有多种颜色，其中每种颜色代表网络中与其他节点相距足够远的节点的某个不同部分。
但是，在任何一个特定的部门中，我不喜欢 src 节点与 target 节点的颜色相同，因此我提出了一个问题 (https://stackoverflow.com/a/35371131/3878253) 如何区分这两种颜色。
现在有没有一种方法可以扩展此代码以恢复多种配色方案(以区分各个扇区)，同时保留漂亮的 src/target 颜色差异？这是代码:
# Load package
library(networkD3)
library(dplyr) # to make the joins easier
# Create fake data
src <- c("A", "A", "A", "A",
"B", "B", "C", "C", "D")
target <- c("B", "C", "D", "J",
"E", "F", "G", "H", "I")
networkData <- data.frame(src, target, stringsAsFactors = FALSE)
nodes <- data.frame(name = unique(c(src, target)), stringsAsFactors = FALSE)
nodes$id <- 0:(nrow(nodes) - 1)
# create a data frame of the edges that uses id 0:9 instead of their names
edges <- networkData %>%
left_join(nodes, by = c("src" = "name")) %>%
select(-src) %>%
rename(source = id) %>%
left_join(nodes, by = c("target" = "name")) %>%
select(-target) %>%
rename(target = id)
edges$width <- 1
# make a grouping variable that will match to colours
nodes$group <- ifelse(nodes$name %in% src, "lions", "tigers")
ColourScale <- 'd3.scaleOrdinal()
.domain(["lions", "tigers"])
.range(["#FF6900", "#694489"]);'
forceNetwork(Links = edges, Nodes = nodes,
Source = "source",
Target = "target",
NodeID ="name",
Group = "group",
Value = "width",
opacity = 0.9,
zoom = TRUE,
colourScale = JS(ColourScale))
最佳答案
重新阅读您的问题和回复后，我认为您真正想知道的是...如何将您的数据分组。定义集群后，您可以将 nodes 数据框中每个节点的组值设置为其集群的名称/id，然后 networkD3 将相应地为它们着色。
进一步探讨您的问题，目前尚不清楚您希望如何同时组合“不同颜色的源节点和目标节点” 和 '根据集群的颜色节点'...这些目标显然存在冲突，因为集群同时包含源节点和目标节点。您的问题的另一个问题是，在这些类型的网络中，一个节点可能既是源节点又是目标节点，因此您必须更清楚地了解如何为它们着色。我可以假设您将“目标”节点定义为仅链接到另一个节点的节点(从技术上讲，节点是源还是目标由节点之间的链接方向决定)，但这不是必然如此(我可以想象您可能有其他解释)。
要进行聚类，您需要查看 igraph 包及其众多的聚类函数。例如...
使用包含在 networkD3 中的 Les Misérables 数据，让我们回溯直到我们只有一个包含源和目标字符的两列数据框......
library(igraph)
library(networkD3)
data(MisLinks)
data(MisNodes)
lesmis <- data.frame(source = MisNodes$name[MisLinks$source + 1],
target = MisNodes$name[MisLinks$target + 1],
stringsAsFactors = F)
现在，使用它，您可以使用
igraph 来计算集群，然后将它们重新组合在一起以在 networkD3 中绘图...lesmis <- graph_from_data_frame(lesmis)
wc <- cluster_walktrap(lesmis)
members <- membership(wc)
lesmis <- igraph_to_networkD3(lesmis, group = members)
forceNetwork(Links = lesmis$links, Nodes = lesmis$nodes,
Source = 'source', Target = 'target',
NodeID = 'name', Group = 'group', opacity = 1)
现在，如果您还想让“目标”节点(只有一个链接的节点)具有不同的颜色，您可以找出哪些节点在源和目标列表中只出现一次，并在
nodes 数据框中设置它们的组值对独特的东西...allnodes <- c(lesmis$links$source, lesmis$links$target)
targetids <- allnodes[!duplicated(allnodes) & ! duplicated(allnodes, fromLast = T)]
lesmis$nodes$group[targetids + 1] <- 'target'
forceNetwork(Links = lesmis$links, Nodes = lesmis$nodes,
Source = 'source', Target = 'target',
NodeID = 'name', Group = 'group', opacity = 1)
关于javascript - R networkD3 包 : forceNetwork() coloring，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/45179424/