丢弃R中的有向图的二部边

# 安装和加载igraph包
install.packages("igraph")
library(igraph)

# 创建一个有向图
g <- make_empty_graph(directed = TRUE)

# 添加顶点
g <- add_vertices(g, 5)

# 添加边
g <- add_edges(g, c(1, 2, 2, 3, 3, 4, 4, 5, 5, 1, 1, 3))

# 打印原始有向图
print(g)

# 删除二部边
g <- delete_edges(g, c(1, 3, 3, 4, 4, 5, 5, 1))

# 打印删除二部边后的有向图
print(g)