我有previously asked a question，它解决了如何在igraph对象中合并两个顶点的问题。
然而，出现了一个新问题。我还需要合并边缘属性（不仅仅是顶点属性）。在我的图（g）中，边权重包含在E（g）$ Tie Weight中。
但是，Tie Weights未正确映射，当我尝试在edge.attr.comb函数中使用contract.vertices时收到错误。
Error in contract.vertices(g, id_list, vertex.attr.comb = list(Number of Pages = "sum",: unused argument(s) (edge.attr.comb = list(Tie Weight = "sum"))
我用来合并图表中节点的代码：
node1 <- 5
node2 <- 18
id_list <- as.numeric(paste(formatC(c(1:(node2 - 1),node1,node2:(vcount(g) - 1)))))
g2 <- contract.vertices(g, id_list, vertex.attr.comb=list("Number of Pages"="sum", "first"))