R 复杂网络中的信息传播

我有网络

如何让紫色和橙色的媒介只在绿色中找到它们的邻居

代码示例：

选择橙色网络的顶点

for（v为橙色）
{
Y
   for (v in chory_orange)
{
  y<- neighbors(graf,v)
  zarazeni_orange <- c(zarazeni_orange, y-1)
  print(y) 
}

for (v in chory_play)
{

  y<- neighbors(graf,v)
  zarazeni_play <- c(zarazeni_play, y-1)
  print(y)

}

V(graf)[zarazeni_orange ]$color <- 'purple'
V(graf)[zarazeni_play ]$color <- 'orange'
plot(graf, vertex.size=8, vertex.label.color="black", edge.color="black", edge.arrow.width=0.4)