R语言：如何基于矩阵为visNetwork网络图添加边标签

要让边标签正常显示，核心是给边指定标签内容并正确配置显示属性，你之前的代码只启用了标签功能，但没有传入具体的标签值。以下是修改后的完整方案：

步骤说明 #

• 给edges数据框添加label列，将weight的值（可按需格式化）作为标签内容
• 在visEdges中正确配置标签的显示参数

修改后的完整代码 #

library(tidyverse)
library(visNetwork)
library(htmlwidgets)

set.seed(123)
mat <- matrix(runif(19*20), nrow = 19, ncol = 20)
mat <- t(apply(mat, 1, function(x) x/sum(x)))
mat <- rbind(mat, c(rep(0, 19), 1))

nodes <- data.frame(id = 1:20)
edges <- data.frame(from = sample(1:20, 100, replace = TRUE), to = sample(1:20, 100, replace = TRUE))

nodes$shape <- 'circle'
edges$weight <- apply(edges, 1, function(x) mat[x["from"], x["to"]])

# 新增：给边添加标签列，这里将weight保留3位小数作为标签
edges$label <- round(edges$weight, 3)

# 创建网络图并配置边标签
network <- visNetwork(nodes, edges) %>%
  visEdges(
    arrows = list(to = list(enabled = TRUE)),
    # 启用边标签，并可配置样式（如字体大小）
    label = list(enabled = TRUE, fontSize = 10)
  ) %>%
  visIgraphLayout(layout = "layout_in_circle") 

network

关键细节 #

• visNetwork会自动识别edges数据框中的label列作为边的标签内容，所以必须先给edges添加该列
• 如果不需要格式化weight，直接用edges$label <- edges$weight即可
• 可以通过label参数的子属性（如fontSize、color）调整标签样式，避免因圆形布局导致标签重叠

内容的提问来源于stack exchange，提问作者stats_noob