r-如何在visNetwork中显示彩色图形和易于阅读的文本

我正在使用带有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)

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