网络图 igraph

install.packages("igraph")
library(igraph)
data=matrix(sample(0:1, 400, replace=TRUE, prob=c(0.8,0.2)), nrow=20)
network=graph_from_adjacency_matrix(data , mode='undirected', diag=F )
plot(network, layout=layout.sphere)