如何在R中删除网络中的隔离？

install.packages("igraph")

library(igraph)

# 创建一个空的网络对象
network <- graph()

# 添加网络中的节点
network <- add_vertices(network, 5)  # 添加5个节点

# 添加网络中的边
edges <- c(1, 2, 2, 3, 3, 4, 4, 5, 5, 1)  # 边列表
network <- add_edges(network, edges)  # 添加边到网络对象

# 检测网络是否是连通的
is_connected <- is.connected(network)

# 如果网络是连通的，则不需要删除隔离节点
if (!is_connected) {
  # 获取隔离节点的索引
  isolated_vertices <- which(degree(network) == 0)
  
  # 删除隔离节点
  network <- delete_vertices(network, isolated_vertices)
}

# 可视化网络
plot(network)