R语言绘制五个互异节点的有权重的无向网络连通图和优化的有向网络连通图

# 创建数据集
set.seed(1)
data=matrix(sample(0:3, 25, replace=TRUE,prob=c(0.8,0.4,0.6,0.2)), nrow=5)
data[lower.tri(data)] <- NA
colnames(data)=rownames(data)=LETTERS[1:5]

# 以图的格式转换数据集
network=graph_from_adjacency_matrix(data, weighted