R 中的 delete_vertices igraph

Question

我需要從圖中刪除節點數最多的組。 我嘗試使用 delete_vertices(name_of_graph, nodes_to_remove)，但如何指示要刪除的節點？ 前任。 我有 5 個組，分別有 6、19、27、11 和 18 個節點。 所以我需要刪除有 27 個節點的組，我該怎么做呢？

Answer 1

您可以使用delete.vertices() function，給出圖形的名稱和要刪除的節點的名稱。

set.seed(666)
require(igraph)
net  = data.frame(
Node.1 = sample(LETTERS[1:15], 15, replace = TRUE),
Node.2 = sample(LETTERS[1:10], 15, replace = TRUE))

g <- igraph::graph_from_data_frame(net, directed = FALSE )
plot(g)
g = delete.vertices(g, V(g)$name == "N")
plot(g)

Answer 2

您可以使用 label 組的components嘗試下面的代碼，並找到具有最多頂點數的組。 然后使用subset過濾掉這些頂點並應用delete.vertices來刪除它們。

delete.vertices(
  g,
  subset(
    V(g),
    with(components(g), membership == which.max(csize))
  )
)

---

例子

g1 <- make_ring(5)
g2 <- make_ring(3)
g3 <- make_ring(7)
g4 <- make_ring(4)

g <- disjoint_union(g1, g2, g3, g4)

plot(g)

運行后

g.out <- delete.vertices(
  g,
  subset(
    V(g),
    with(components(g), membership == which.max(csize))
  )
)

plot(g.out)

你會看見