假定有一个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语言的小白，还请各位大神多多指教。