如何在R中提取部分图以进一步计算

Question

我的数据集看起来像这样：

library(igraph)
From <- c(1,2,3,4,5,6,7,8)
To <- c(NA,1,2,3,2,NA,6,7)
Value<- c(4,3,7,5,3,7,4,6)
Data <- data.frame(From,To, Value)
Network <- graph.data.frame(Data[,c("From","To")])
Network<- Network - "NA"
plot(Network)

我用它做了一些计算导致了这个表：

From<- c(1,6)
Calc<- c(0.3,0.7)
Value<- c(4,7)
CalcData<- data.frame(From,Calc,Value)

现在我希望有一个函数可以减去传入的Graph并计算所有Incoming（不仅仅是直接传入的）Vertices的平均值，并将它们添加到Table中，之后应该看起来像这样

From<- c(1,6)
Calc<- c(0.3,0.7)
Value<- c(4,7)
AverageValueIncoming<-  c((3+7+5+3)/4,(4+6)/2)
FinalData<- data.frame(From,Calc,Value,AverageValueIncoming)