Büyük bir Twitter grafiğinde iki kullanıcının benzersiz takipçilerinin sayısı nasıl bulunur?

Question

İki kullanıcının benzersiz takipçi sayısını bulmaya çalışıyorum (sendika (takipçi A, followers B)) twitter. Aşağıdaki kodu kullandım ve küçük grafikler için mükemmel çalışıyor.

library(igraph) 
library(Matrix) 
mat<-matrix(c("A","A","C","B","C","D","H","F","F","I","I","C","D","D","D","E","E‌​","F","E","G","F","G"),ncol=2) 
mat<-as.data.frame(mat) 
graph<-graph.data.frame(mat) 
undirected_graph<-graph.data.frame(mat,directed=FALSE) 
A<-get.adjacency(graph) 
D<-colSums(A) 
B<-matrix(D,ncol=length(D),nrow=length(D)) 
#unique followers of two selected nodes 
unique<-B+t(B)-t(A)%*%A 
runique<-unique-get.adjacency(undirected_graph) 

Şimdi kolaylıkla bitişiklik matrisi oluşturabilir büyük graphs.The kodu için bu kodu kullanmak istiyor, ancak B matrix gelince, ben bellek tükendi. Aşağıdaki kod çalıştı:

B<-Matrix(D,ncol=length(D),nrow=length(D),sparse=T) 

Ama hala aynı sorun var. Bu konuda bana yardımcı olabilir misiniz?

unique <- t(D + t(D - crossprod(A))) 

:

Answer 1

unique

böyle B işlem hesaplanabilmektedir