Igraph，找到所有相邻节点上的节点属性的平均值

Question

我目前有一个网络图，我尝试使用以下代码创建一个新的节点属性，该属性表示所有相邻节点上属性A的平均值。但是，我想知道是否还有其他方法可以做到这一点？

 V(net)$B <- sapply(V(net), function(x) { 
    NeighborList = neighbors(net, x) ; 
    ifelse(length(NeighborList) > 0, 
    mean(NeighborList$A),0) } )