假定有一个50*50的邻接矩阵:
library(statnet)
library(igraph)
set.seed(12345)
num_nodes <- 50
z <- round(runif(num_nodes^2))
x1 <- matrix(z, num_nodes, num_nodes)
diag(x1) <- 0
cnames <- c(1: num_nodes)
g <- graph.adjacency(x1,mode="undirected")
plot(g,vertex.label=cnames)
这样就已经可以做出对应的网络图了。
现在从这个邻接矩阵中找到一组顶点,相互之间存在联系,如4 9 11 14 17 34 35 36 47 49这样一组10个顶点,如何做出这一组顶点对应的网络图呢?R语言的小白,还请各位大神多多指教。