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)