library(igraph)
g <- sample_gnp(10, 2 / 10)
as_edgelist(g)
plot(g)
V(g)$name <- LETTERS[seq_len(gorder(g))]
plot(g)
g <- sample_gnp(10, 3 / 10)
g <- sample_gnp(20, 4 / 20)
参考文献:《Network Analysis and Visualization》
library(igraph)
g <- sample_gnp(10, 2 / 10)
as_edgelist(g)
plot(g)
V(g)$name <- LETTERS[seq_len(gorder(g))]
plot(g)
g <- sample_gnp(10, 3 / 10)
g <- sample_gnp(20, 4 / 20)
参考文献:《Network Analysis and Visualization》