地块a“；“迷你”；基于隶属度的igraph对象图

我正在使用R。假设我有数据（如下）并绘制一个图表：

library(igraph)
file <-data.frame(

"source" = c(
    "John",
    "John",
    "Tim",
    "Tim",
    "Alex",
    "Andrew",
    "Andrew",
    "Andrew",
    "Oliver",
    "Oliver",
    "Oliver",
    "Matt",
    "Steven",
    "Steven",
    "Steven",
    "Matt",
    "Charles",
    "Charles",
    "Charles",
    "Sean",
    "Ted",
    "Ryan",
    "Ryan",
    "Ryan",
    "Ted",
    "Phil",
    "Phil",
    "Phil",
    "Sam",
    "Toby",
    "Toby",
    "Donald",
    "Donald",
    "Donald",
    "Mitch",
    "Mitch",
    "Mitch"),

"target" = c("Sam",
             "Tim",
             "Alex",
             "Matt",
             "Andrew",
             "Sean",
             "Peter",
             "Ben",
             "Kevin",
             "Thomas",
             "Dave",
             "Steven",
             "Kenny",
             "Derek",
             "CJ",
             "Charles",
             "Ivan",
             "Kyle",
             "Andrew",
             "Ted",
             "Ryan",
             "Daniel",
             "Chris",
             "Scott",
             "Phil",
             "Henry",
             "George",
             "Paul",
             "Toby",
             "Donald",
             "Mitch",
             "Jack",
             "Luke",
             "Myles",
             "Elliot",
             "Harvey",
             "Owen")

)

graph <- graph.data.frame(file, directed=F)
graph <- simplify(graph)
plot(graph)

库（igraph）
文件请尝试以下操作：

g2 <- delete_vertices(g1, V(g1)[cls$membership == 2])
plot(g2, main = "membership 1")

g3 <- delete_vertices(g1, V(g1)[cls$membership == 1])
plot(g3, main = "membership 2")

g2 <- delete_vertices(g1, V(g1)[cls$membership == 2])
plot(g2, main = "membership 1")

g3 <- delete_vertices(g1, V(g1)[cls$membership == 1])
plot(g3, main = "membership 2")

cls$csize
# [1] 34  4
table(cls$membership)
#  1  2 
# 34  4