使用R中的networkD3将链接定向到forceNetwork中的左上角

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")

# 设置forceNetwork参数
network <- forceNetwork(Links = edges, Nodes = nodes, Source = "from", Target = "to", NodeID = "name",
                        width = 800, height = 600, bounded = TRUE, linkDistance = 100, linkDirectional = TRUE,
                        linkDirectionalArrowLength = 0.5, linkDirectionalArrowRelPos = 1)

# 将网络图对象转换为HTML文件
htmlwidgets::saveWidget(network, "network.html", selfcontained = TRUE)

# 在浏览器中显示网络图
browseURL("network.html")