제휴 데이터로 선택한 인접 행렬에서 하위 그래프를 만들어야합니다. 인접성과 제휴 매트릭스를 어떻게 일치 시키나요?
다음 인접 행렬을 사용하십시오.
A B C D E F G
A 0 1 0 1 0 1 0
B 1 0 1 1 0 1 0
C 0 1 0 0 0 0 0
D 1 1 0 0 1 1 0
E 0 0 0 1 0 1 0
F 1 1 0 1 1 0 1
G 0 0 0 0 0 1 0
그리고 다음 제휴 매트릭스 :
P R Q
A 1 1 0
B 1 0 1
C 1 1 0
D 0 1 0
E 1 0 1
F 0 0 1
G 1 1 0
제휴 행렬에서 P에 해당하는 노드로만 인접 행렬에서 부분 그래프를 생성하려면 어떻게해야합니까?
목표가 다음과 같은 경우 :
P
이 1
제휴 행렬에있는 인접 행렬에서 노드를 필터링합니다.igraph
객체 로 변환그런 다음 다음과 같이 수행 할 수 있습니다.
# the names(which()) isn't needed for the subset of adj
p_nodes <- names(which(aff[,"P"] == 1))
p_adj <- adj[p_nodes, p_nodes]
p_graph <- igraph::graph.adjacency(p_graph)
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다