bipartite graphというものがある。
昔やったマッチング問題でいうところの、男と女はエッジを引くけど、男集団内ではカップリングはしない、という感じのグラフ。
R ではbiaprtite, networksis, igraphでできる。
networksisの finch データを使ってみる。
bipartite なグループは13あるらしい。
library(networksis) data(finch) b <- mapply(function(x) finch[[1]][[x]][[1]], seq(finch[[1]])) v <- mapply(function(x) finch[[1]][[x]][[2]], seq(finch[[1]])) plot(finch, label=seq(30), label.col=4, edge.col=grey(0.6)) split(v, b)
