在R中的networkd3中将我的无向网络图(使用图)转换为交互图

install.packages("networkD3")
library(networkD3)

# 创建节点数据框
nodes <- data.frame(name = c("节点1", "节点2", "节点3"))

# 创建边数据框
edges <- data.frame(from = c(1, 2), to = c(2, 3))

# 创建无向网络图
network <- forceNetwork(Links = edges, Nodes = nodes, Source = "from", Target = "to", NodeID = "name")

# 转换为交互图
interactive_network <- forceNetwork(Links = edges, Nodes = nodes, Source = "from", Target = "to", NodeID = "name", opacity = 0.8)

# 显示交互图
interactive_network