단일 노드 삭제 R

Question

R을 사용하여 제품의 우선 네트워크를 시각화하려고합니다. 이미 igraph를 사용하여 제품 네트워크의 그래프를 가지고 있지만, 하나의 제품을 제거하는 경우 어떻게 될지보고 싶습니다. . 나는

g2 <- g - V(g)[15] 

을 사용하여 노드를 삭제할 수 있지만, 그것은 또한 특정 노드에 연결된 모든 가장자리를 삭제할 것을 발견했다.

노드를 삭제하고 해당 노드를 삭제 한 후 다른 노드가 서로 어떻게 다시 연결되는지 보는 방법이 있습니까? 이 문제에 도움이 되었으면 좋겠습니다.

P.

희망이 그것을 명확하게됩니다 예를 들어

, 우리는 무작위로 그래프를 생성하는 경우 : 네트워크에서 노드를 '3'삭제

set.seed(10) 
Data <- data.frame(
    X = sample(1:10), 
    Y = sample(3, 10, replace=T) 
) 
d <- graph.data.frame(Data) 
plot(d) 
d2 <- d-V(d)[2] #deleting '3' from the network 
plot(d2) 

당신이 통지하는 경우를, 노드 ' 9 '는 연결되지 않은 채로 있습니다. 노드 '3'이 연결된 후에 노드 '9'의 새 가장자리를 볼 수있는 방법이 있습니까? 여전히 동일한 플롯을 따르면 노드 2에 연결될 것으로 예상됩니다. igraph에서 이것을 수행하는 함수가 있습니까? 아니면 코드를 작성해야합니까? 어쩌면

Answer 1

없는 가장 효율적인 방법,하지만 작동합니다 :

library(igraph) 

set.seed(10) # for plot images reproducibility 

# create a graph 
df <- data.frame(
    X = c('A','A','B','B','D','E'), 
    Y = c('B','C','C','F','B','B') 
) 
d <- graph.data.frame(df) 

# plot the original graph 
plot(d) 

# function to remove the vertex 
removeVertexAndKeepConnections <- function(g,v){ 

    # we does not support multiple vertices 
    stopifnot(length(v) == 1) 

    vert2rem <- V(g)[v] 

    if(is.directed(g) == FALSE){ 
    # get the neigbors of the vertex to remove 
    vx <- as.integer(V(g)[nei(vert2rem)]) 
    # create edges to add before vertex removal 
    newEdges <- as.matrix(unique(expand.grid(vx,vx))) 
    # remove the cycles 
    newEdges <- newEdges[newEdges[,1] != newEdges[,2],] 
    # sort each row index to remove all the duplicates 
    newEdges <- t(apply(newEdges,1,sort)) 
    newEdges <- unique(newEdges) 
    }else{ 
    # get the ingoing/outgoing neigbors of the vertex to remove 
    vx <- as.integer(V(g)[nei(vert2rem,mode='in')]) 
    vy <- as.integer(V(g)[nei(vert2rem,mode='out')]) 
    # create edges to add before vertex removal 
    newEdges <- as.matrix(unique(expand.grid(vx,vy))) 
    } 

    # remove already existing edges 
    newEdges <- newEdges[!apply(newEdges,MARGIN=1,FUN=function(x)are.connected(g,x[1],x[2])),] 

    # add the edges 
    g <- g + edges(as.integer(t(newEdges))) 
    # remove the vertex 
    g <- g - vertex(vert2rem) 

    return(g) 
} 

# let's remove B (you can also use the index 
v <- 'B' 
plot(removeVertexAndKeepConnections(d,v)) 

원본 :

수정 :