Можно ли построить несколько сетей в 1 график, используя forceNetwork для networkD3?
Образец (из сообщения Отрегулируйте фоновое изображение и заголовок для plot из forceNetwork networkD3) использует 1 набор узлов + ребер (т.е. subNodes & subLinkList). В случае, когда есть 4 набора узлов + ребер, и я хочу поместить их все в 1 граф. Как это возможно?
Спасибо.
график из 1 набора узлов + ребер, как показано ниже:
library(networkD3)
library(htmlwidgets)
subNodes <-
read.table(stringsAsFactors = FALSE, header = TRUE, text = "
nodeName nodeGroup nodeSize
Bob NorthAmerica 10
Alice NorthAmerica 10
Tom China 10
John Japan 10
")
subLinkList <-
read.table(stringsAsFactors = FALSE, header = TRUE, text = "
root children linkValue
0 1 1
0 2 1
0 3 1
")
network <- forceNetwork(Links = subLinkList, Nodes = subNodes,
Source = "root", Target = "children",
Value = "linkValue", NodeID = "nodeName",
Group = "nodeGroup",
opacity = 1, Nodesize = "nodeSize",
legend = TRUE)
network <- htmlwidgets::prependContent(network, htmltools::tags$h1("Title"))
network <- htmlwidgets::onRender(
network,
'function(el, x) {
d3.selectAll(".legend text").style("fill", "white");
d3.select("body").style("background-color", "#144370");
d3.select("h1").style("color", "red").style("font-family", "sans-serif");
d3.select("body")
.style("background-repeat", "no-repeat")
.style("background-position", "right bottom");
}'
)
network