네트워크 분석을 위해 데이터 프레임을 인접성 매트릭스/에지 목록으로 변환

Question

데이터 프레임을 온라인 포럼에서 소셜 네트워크로 변환하려고하지만 데이터를 인접성 매트릭스/에지로 변환하는 방법을 모르겠습니다. 네트워크 분석에 필요한 목록.

library(igraph) 
graph.data.2002 <- as.matrix(data.2002[,2:3]) 
g.2002 <- graph.data.frame(graph.data.2002, directed=FALSE) 
plot(g.2002, vertex.size = 1, vertex.label=NA) 

것은 내가 분석을위한 R을 사용하고 다음과 같이

내 코드입니다. 현재의 문제는 작성자가 ThreadID를 통해 서로 연결되어 있지만 네트워크 분석을 수행 할 때 ThreadID가 노드로 포함된다는 것입니다. 이상 적으로 저자가 동일한 스레드의 모든 저자와 상호 작용하는 경우 1을 보여주는 인접성 매트릭스/가장자리 목록을 원합니다.

ThreadID AuthorID 
659289 193537 
432269 136196 
572531 170305 
230003 32359 
459059 47875 
635953 181593 
235116 51993 

Answer 1

당신은 뭔가를 얻기 위해 inner_join을 사용할 수

가 현재 데이터가 다음과 같다

(/ 적절하지없는 것도이 있는지 처음 게시, 그래서 알려주세요) 가장자리 목록 (단지 약간의 재 형식화가 필요함). 내가 제대로 이해 해요 경우

, test 1은 당신이 당신이 기대했던 얻을 해당 스레드에 659289.

test1 <- data.frame(ThreadID = c(659289, 432269, 572531, 659289), 
       AuthorID = c(193537, 136196, 170305, 32359)) 
test2 <- dplyr::inner_join(test1, test1, by = "ThreadID")[,-1] 
test3 <- apply(test2, 2, as.character) #AuthorID as character will become vertex ID 

확인했다 저자 193,537과 32,359 사이에 하나의 연결을해야한다 :

library(network) 
test.network <- network(test3, directed = FALSE) 
as.sociomatrix(test.network) 
as.edgelist(test.network) 
plot(test.network, label = test.network%v%"vertex.names")