I am trying to build the following image using vis-network package in R. Some features in the images are
Nodes blue belong to cell 1 and nodes in yellow belo