распространение информации в сложной сети

Question

У меня есть сеть

Как заставить фиолетовые и оранжевые векторы находить своих соседей только в зеленом цвете?

Пример кода:

Выбор вершины для оранжевой сети

   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)