更新

如果需要对每个节点的属性进行一些额外的操作，可以像下面这样使用lapply

V(G1)$numeric <- unlist(lapply(V(G1)$numeric, sum))

字符串
你将获得

> V(G1)$numeric
 [1] 1 2 7 0 5 1 5 0 4 5

型

contract图形和 Package 属性

我想你可以尝试连接属性，例如，vertex.attr.comb = c

G1 <- contract(G, V(G)$newId, vertex.attr.comb = c)

型
并且G1的属性被保存在列表中，例如，

> str(V(G1)$character)
List of 10
 $ : chr "attr1"
 $ : chr "attr2"
 $ : chr [1:2] "attr1" "attr2"
 $ : chr(0)
 $ : chr "attr1"
 $ : chr "attr2"
 $ : chr [1:2] "attr1" "attr2"
 $ : chr(0) 
 $ : chr "attr1"
 $ : chr "attr2"

> str(V(G1)$numeric)
List of 10
 $ : int 1
 $ : int 2
 $ : int [1:2] 3 4
 $ : int(0)
 $ : int 5
 $ : int 1
 $ : int [1:2] 2 3
 $ : int(0)
 $ : int 4
 $ : int 5

> str(V(G1)$newId)
List of 10
 $ : num 1
 $ : num 2
 $ : num [1:2] 3 3
 $ : num(0)
 $ : num 5
 $ : num 6
 $ : num [1:2] 7 7
 $ : num(0)
 $ : num 9
 $ : num 10

型