I created a bipartite network using igraph:
net2 <- graph_from_incidence_matrix(df) table(V(net2)$type) V(net2)$color <- c("steel blue", &quo