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