如何獲得與IGRAPH

Question

更大程度中心頂點我想使用的igraph R中的最高度中心的頂點，我試着用：

V(g)[degree(g,V(g)$id) == which.max(degree(g))] 

但它不工作。

Answer 1

嘗試

library(igraph) 
set.seed(5) 
g <- ba.game(100) 
V(g)$id <- paste0("id", 1:100) 
(idx <- which(degree(g)==max(degree(g)))) 
V(g)$id[idx] 
# [1] "id1" "id2" 

# optional plot 
cols <- rep("blue", vcount(g)); cols[idx] <- "red"; plot(g, vertex.shape="none", vertex.label.color=cols, edge.arrow.size=.5)