すべての頂点が特定の頂点属性 (V(Grph)$year == "1952" など) を共有する有向ネットワークのグラフのサブグラフを作成したいと思います。アウトディグリーのみ。
ego()、、、およびmake_ego_graph()を試しました。neighbors()adjacent_vertices()
たとえば
CitGraph <- make_ego_graph(Grph, 1, nodes = which(V(Grph)$year=="1952"), mode = "out")
、グラフのリスト (単一の包括的なグラフではありません) が生成され、驚くべきことに、今年の 50,000 個の頂点と 150,000 個の隣接点を指すのに 2 時間かかります。
私が考えることができる 1 つのアプローチは、これらすべてのグラフをリストに集約することですが、その方法はわかりません。assortativity_nominal()また、別の頂点属性 (この場合は地理的な場所) に基づいてを計算することが最終的な目標であるため、頂点属性を保持したいと思います。
ご提案をお寄せいただきありがとうございます。