visNetwork中节点大小被标签长度覆盖

可以通过修改 visNetwork 包中的节点大小计算方式，使其不受节点标签长度影响，具体步骤如下：

1. 将节点大小设置为常数，例如 10：

nodes <- data.frame(id = 1:5, label = c("label1", "label2", "label3", "label4", "label5"))
edges <- data.frame(from = c(1, 2, 3, 4), to = c(2, 3, 4, 5))
visNetwork(nodes, edges) %>% visNodes(size = 10)

2. 计算节点标签长度，并根据长度调整节点大小：

library(dplyr)

# 计算每个节点的标签长度
nodes <- nodes %>% mutate(label_len = nchar(label))

# 计算节点大小
max_label_len <- max(nodes$label_len)
nodes$size <- nodes$label_len / max_label_len * 10

visNetwork(nodes, edges) %>% visNodes(size = nodes$size)

这样做后，节点大小会根据节点标签长度而调整，但不会完全被覆盖。可以根据实际需要调整节点大小的常数和计算公式。