R igraph convert parallel edges to weight attribute

In case you want to get the number of parallel edges of a graph without adding a weight attribute to your graph, you could use the following function:

duplicated <- function(graph){
  g_local <- graph
  E(g_local)$weight <- 1
  g_simp <- simplify(g_local, edge.attr.comb=list(weight="sum"))
  w <- E(g_simp)$weight
  return(sum(w-1))
}

You can also use E(graph)$weight <- 1 followed by simplify(graph, edge.attr.comb=list(weight="sum")) to assign a weight of 1 to each edge and then collapsing multiple edges into single ones while summing the weights.


It seems exporting an unweighted graph with parallel edges to an adjacency matrix in igraph creates a weights list with the number of edges as weight, which can then be read again:

library("igraph")
E <- matrix(c(1,1,1,2,2,2),3,2)
G <- graph.edgelist(E)

G2 <- graph.adjacency(get.adjacency(G),weighted=TRUE)