eine gewichtete Kantenliste in eine ungewichtete in r drehen

Question

Ich habe Daten auf jeder Interaktion, die

könnte und wöchentlich

id1  id2 timestalked date 
1  2  1   1/1/2010 
1  3  0   1/1/2010 
... 
100  2  4   1/8/2010 
... 

ich für die diese soziale Stunde an einer Universität Club geschah zunächst in als gerichteter Graph zu ladende Gesamter Zeitraum für die Visualisierung. Für die gewichtete Matrix habe ich getan.

library(igraph); 
el <- read.csv("el.csv", header = TRUE); 
G <- graph.data.frame(el,directed=TRUE); 
A <- as_adjacency_matrix(G,type="both",names=TRUE,sparse=FALSE,attr="timestalked"); 

Ich dachte attr="timestalked" Entfernen der Gewichte> 0 in 1 drehen würde, aber das scheint nicht

library(igraph); 
el <- read.csv("el.csv", header = TRUE); 
G_unweight <- graph.data.frame(el,directed=TRUE); 
A_unweight <- as_adjacency_matrix(G_unweight,type="both",names=TRUE,sparse=FALSE) 

Answer 1

as_adjacency_matrix() jedes Argument Gewichte zu steuern, bieten nicht zu funktionieren. Beachten Sie, dass nur die Anzahl der Kanten zwischen Knoten aus dem Diagramm angegeben wird.

Um die gewichtete Kantenliste in eine ungewichtete man sich wenden, versuchen Sie diese

A <- as_adjacency_matrix(G, type = "both", names = TRUE, sparse = FALSE) 
A[A > 1] <- 1 

Beachten Sie, dass Sie auch die graph_from_adjacency_matrix() Funktion kann durch Angabe weighted = NULL eine ungewichtete igraph Graph von der Adjazenzmatrix zu erstellen.