2

我正在使用带有visNetwork库的 R 完成网络地图，但我讨厌显示的图例在形状内有文本，所以它的大小由名称的大小来定义，我不希望它是这样以避免混淆. 在库文档中，他们添加了在外部显示文本的形状，但是您必须逐组设置它，并为每个组设置visGroups一块（shape = "triangle"例如），我希望它以一种我可以不使用该代码集的方式进行设置特别知道他们将有多少组，因为每次都不一定是相同的数字。

下面的编码是我正在使用的（大得多，通过仅选择一些列和行使其变得简单）：

library(igraph)
library(visNetwork)


twd2 <- structure(c(0.0854374047081175, 0.116200039661793, 0.0289142580616779, 
                    0.12768720590989, 0.273786051264039, 0, 0.000593902599973604, 
                    0, 0.00184397276348455, 0, 0, 0, 0, 0, 0, 0, 0.106048390315551, 
                    0, 0, 0, 0.0142648455772593, 0, 0.0197857551361577, 0.0290239379534046, 
                    0, 0, 0, 0, 0, 0, 0, 0, 0.00197967638677129, 0, 0.000296951299986802, 
                    0, 0.0111915576381184, 0, 0.00111081782587656, 0.0276104933163398, 
                    0, 0, 0.00487220095904272, 0.0149921777316026, 0, 0, 8.79855703664599e-05, 
                    0.00674104365369398, 0, 0, 0.0330935726540847, 0, 0, 0.0362094142674287, 
                    0, 0, 0, 0.00172168238114983, 0.00232061941841538, 0.0248983709144504
), .Dim = c(4L, 15L), .Dimnames = list(NULL, c("water_treatment", 
                                               "waste_water", "utility_model", "water_inlet", "waste_water_treatment", 
                                               "treatment_system", "model_discloses", "utility_model_discloses", 
                                               "water_outlet", "water_treatment_system", "treatment_device", 
                                               "water_tank", "sludge_treatment", "reverse_osmosis", "raw_water")))
twd2_num_col <- ncol(twd2)
twd2_cor <- cor(twd2, method = "pearson")
twd2_cor[ abs(twd2_cor) <  0.75 ] <- 0
twd2_cor[ abs(twd2_cor) >  0.925 ] <- 0
diag(twd2_cor) <- 0
graph <- graph.adjacency(twd2_cor, weighted=TRUE, mode="lower")
E(graph)$edge.width  <- E(graph)$weight
V(graph)$group       <- apply(twd2, 2, which.max)  # Max topic prob for colors
V(graph)$betweenness <- betweenness(graph, v = V(graph), directed = F)
V(graph)$degree      <- degree(graph, v = V(graph))

# Fit data for visNetwork
nm_data <<- toVisNetworkData(graph)
nodes <<- as.data.frame(nm_data[[1]], stringsAsFactors = F)
nodes <<- nodes[nodes$degree != 0,]    # Bye topics that don't have a connection (degree = 0)
nodes$group <<- swap(nodes$group , 1:length(topic_names), topic_names) # Swap long real names
nodes$label <<- rep("")


# Plot
  # Graph
  set.seed(17);visNetwork(as.data.frame(nodes, stringsAsFactors = F), 
                          as.data.frame(nm_data[[2]], stringsAsFactors = F), 
                          main = "Relation between topics")  %>%
    visOptions(highlightNearest = TRUE, selectedBy = "group") %>%
    visInteraction(dragNodes = FALSE) %>%
    visLegend(useGroups = TRUE, main = "Topic")  %>%
    visNodes(shape = "dot",label = NULL) %>%
    visIgraphLayout(randomSeed = 17)

另外，这里他们参考了我所说的关于选择形状类型的内容，但他们没有添加任何代码，我不知道是否有办法直接将其应用于所有组选项或任何其他我可以有的选择。

4

2 回答 2

0 
ledges <- data.frame(color = c("lightblue", "red"), 
 label = c("reverse", "depends"), arrows =c("to", "from"), 
 font.align = "top") 
 
visNetwork(nodes, edges) %>%
  visGroups(groupname = "A", color = "red") %>%
  visGroups(groupname = "B", color = "lightblue") %>%
  visLegend(addNodes = lnodes, addEdges = ledges, useGroups = FALSE)

font.align = "top"必须完成这项工作

于 2020-11-03T14:31:28.247 回答
0

对于未来的访客；请参阅https://www.rdocumentation.org/packages/visNetwork/versions/2.0.9/topics/visNodes 标签的位置取决于选择的形状，对于默认椭圆，这将在节点内。”带有里面的标签有：椭圆、圆形、数据库、框、文本。外面有标签的有：图像、圆形图像、菱形、点、星形、三角形、三角形下、正方形和图标。

于 2021-01-08T13:27:02.247 回答