你可以使用绘图参数，如边缘。宽度，顶点。大小，边缘。颜色等可视化你的绘图。尝试下面的方法来做到这一点

library(igraph)
library(readxl)

data <- read_excel("Sample.xlsx")
g <- graph_from_data_frame(data, directed = TRUE, vertices = NULL)

# Use ur weighted column data here
edge_weights <- E(g)$weighted
max_weight <- max(edge_weights)
min_weight <- min(edge_weights)
scaled_weights <- rescale(edge_weights, to = c(1, 10))  

plot(g, edge.width = scaled_weights, edge.color = "gray", vertex.color = "lightblue", vertex.size = 30)