我有一个名称从1到10的图表
library(igraph)
library(Cairo)
g<- graph(c(0,1,0,4,0,9,1,7,1,9,2,9,2,3,2,5,3,6,3,9,4,5,4,8,5,8,6,7,6,8,7,8),n=10,dir=FALSE)
V(g)$name<-c(1:10)
V(g)$label<-V(g)$name
coords <- c(0,0,13.0000,0,5.9982,5.9991,7.9973,7.0009,-1.0008,11.9999,0.9993,11.0002,7.9989,13.0009,10.9989,14.0009,5.9989,14.0009,7.0000,4.0000)
coords <- matrix(coords, 10,2,byrow=T)
plot(g,layout=coords)
listMn<-neighborhood(g,1,0:9)
我想以相反的方式做到这一点
m1<-V(g)[listMn[[7]]]$name
以上说明获取,
7 4 8 9
如何从名称7 4 8 9获取listMn [[7]] = 6 3 7 8?
答案 0 :(得分:2)
节点编号从零开始:listMn[[7]]
给出第七个节点(编号6,名称7)的邻居编号,即6,3,7,8,对应于名称(添加1到数字)7,4,8,9。
使用字符串作为名称可能不那么容易混淆:
V(g)$name <- as.character( 1:10 )