我试图确保某些节点总是呈现在其他节点之上,并且很难做到这一点。这可能吗?渲染网络顶部的节点
我使用visNetwork有光泽,想要visIgraph为DRL布局。当igraph绘制数据中出现的节点时,可以单独使用igraph将节点渲染到其他节点的顶部;这似乎不是与visNetwork的情况下
在下面的代码中,我希望组的'其他组'总是呈现在'蓝色组'上面;较小的节点将被渲染到较大的节点之上。
require(shiny)
require(visNetwork)
require(igraph)
require(gplots)
nodes <- data.frame(id = 1:1000, color=colors()[350:449], stringsAsFactors=FALSE)
nodes$group <- ifelse(grepl('blue',nodes$color), 'Blue Group', 'Other Group')
nodes$color <- col2hex(nodes$color)
nodes$color.background <- nodes$color
edges <- data.frame(from = sample.int(1000,1500,replace=TRUE)
, to = sample.int(1000,1500,replace=TRUE))
g=graph_from_data_frame(edges, directed=FALSE, vertices=nodes)
server <- function(input, output) {
output$network <- renderVisNetwork({
# minimal example
withProgress(message = 'Making plot', value = .5, {
visIgraph(igraph=g, layout = "layout_with_drl", randomSeed = 1
, idToLabel=FALSE, type='square') %>%
visGroups(groupname = "Blue Group", value=5) %>%
visGroups(groupname = "Other Group", value=3)
})
})
}
ui <- fluidPage(
visNetworkOutput("network")
)
shinyApp(ui = ui, server = server)
在此先感谢。