R- visNetwork - 图不显示边缘

Question

我的代码如下所示：

setwd("C:/Users/Evangelista/Desktop/v1")

require(visNetwork)
require(dplyr)
require(shiny)
require(magrittr)

graf.info = read.csv("nodes.csv")
id <- rownames(graf.info)
graf.info <- (cbind(id=id, graf.info))
graf.powiazania = read.csv("edges.csv")

visNetworkNodes <- data.frame(graf.info) %>%
  mutate(id=graf.info$id,
         label = nazwa_agenta,
         title = nazwa_agenta)

visNetworkLinks <- data.frame(from = graf.powiazania$From,
                              to = graf.powiazania$To,
                              width = 50,
                              arrows = list(to = list(enabled = TRUE, scaleFactor = 4)))

net <- visNetwork(nodes = visNetworkNodes,
                  edges = visNetworkLinks,
                  height = "600px",
                  width = "800px")

net

我的问题是图形不显示任何边。我的数据取自 csv 文件，它看起来像这样：

我不知道它有什么问题。我的数据对我来说看起来是正确的，带有节点的数据框也有列 id。带边的数据框有 "From" 和 "To" 列。我运行不知道哪里出了问题。

Answer 1

我找到了解决方案：

visNetworkNodes <- data.frame(graf.info) %>%
  mutate(id=graf.info$nazwa_agenta, <------here i changed 'id' to 'nazwa_agenta'
         label = nazwa_agenta,
         title = nazwa_agenta)

R- visNetwork - 图不显示边缘

R- visNetwork - graph doesn't show edges

r

csv

graph

visnetwork