如何在R中创建一个可读且可保存的大型纠缠图

install.packages("igraph")
install.packages("ggplot2")
install.packages("ggraph")

library(igraph)
library(ggplot2)
library(ggraph)

graph <- graph()

# 添加节点
graph <- add_vertices(graph, n = 5)
V(graph)$label <- c("Node 1", "Node 2", "Node 3", "Node 4", "Node 5")

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

# 可视化纠缠图
g <- ggraph(graph, layout = "fr") + 
  geom_edge_link() +
  geom_node_point() +
  geom_node_text(aes(label = label), vjust = 1.5) +
  theme_void()

# 显示纠缠图
print(g)

# 保存纠缠图为PNG文件
ggsave("entanglement_graph.png", plot = g, width = 10, height = 8, units = "in")