Edgelistを使用して二部グラフから所属ネットワークを構築する

Question

私は二部構成のネットワークを表すエッジリストを持っています。

ID1 ID2 
    1 123 
    1 124 
    1 125 
    2 123 
    2 126 
    3 127 
    3 123 
    3 130 

ID1は、俳優の1クラスであり、ID2は、俳優の別のクラスです。アクタークラスの属性（ID1のすべての頂点を1つのクラス、ID2のすべての頂点を別のクラスとします）をバイパータイトネットワーク分析に使用するにはどうすればよいですか。さらに、2つの別々のグラフとして所属ネットワークを抽出し、それらをエクスポートしたいと考えています。

データフレームを再現するコードはここに事前に

x<-as.data.frame(matrix(c(1,1,1,2,2,3,3,3,123,124,125,123,126,127,123,130),8,2)) 
colnames(x) <- c("ID1", "ID2") 
g <- graph.data.frame(x, directed=F) 

感謝を見つけることができます！

Answer 1

基本的には、data.frameのデータを使用して頂点に型属性を割り当てるだけです。たとえば、

is_bipartite(g) 
# [1] FALSE 
V(g)$type <- V(g)$name %in% x[["ID1"]] 
is_bipartite(g) 
# [1] TRUE 

このコードでは、頂点の名前を使用して最初の列のすべての値をTRUEに設定します。