Как устранить неопределенную ошибку столбцов для Sankey в R? - PullRequest
Новая
       93

Как устранить неопределенную ошибку столбцов для Sankey в R?

0 голосов
/ 04 марта 2019

Я строю диаграмму Санки, используя networkD3 в R, но получаю сообщение об ошибке: 

Error in `[.data.frame`(Links, , Source) : undefined columns selected

У меня следующий код: 

library(networkD3)
library(magrittr)

# Data Sources
file <- c("M://R//SankeyDataACT.csv")
links <- read.csv(file, sep =",", header = TRUE)
file <- c("M://R//SankeyNodes.csv")
nodes <- read.csv(file, sep =",", header = TRUE)
sankeyData <- list(nodes=nodes, links=links)

# Sankeydiagram
sankeyNetwork(Links = sankeyData$links, 
              Nodes = sankeyData$nodes, 
              Source = "Source",
              Target = "Target", 
              Value = "Value", 
              NodeID = "Name",
              units = "$", 
              fontSize = 12, 
              nodeWidth = 30)

Когда я запускаю код выше, я получаю сообщение об ошибке.Я не вижу, в чем проблема.

См. Ниже данные, которые у меня есть

Источник: 

links[,1]
 [1] 0 0 0 1 1 1 2 2 2 2 3 3 3 3 4 4 5 5 5 5 6 6 6 6 6

Цель: 

links[,2]
 [1]  7  8  9  7  8 10  7  9  8 10  9  7  8 10  7  8 10  8  7  9 11  8  7  9 10

Значение: 

links[,3]
 [1]   4   8   6   6   2   4  12  12  23  12 148 260 285   3   2   1  67 117 177  34  28  67  20  21   1

Узлы: 

nodes[,1]
 [1] ATT BHL CTL MEX MTL SSL TLS CEE SWE NWE MEA MF  OEM
Levels: ATT BHL CEE CTL MEA MEX MF MTL NWE OEM SSL SWE TLS

1 Ответ

0 голосов
/ 05 марта 2019

Имена столбцов, которые вы устанавливаете в функции sankeyNetwork (то есть Source = "Source", Target = "Target", Value = "Value", NodeID = "Name"), отсутствуют в ваших данных.Вы можете установить правильные имена столбцов в аргументах функций или переименовать столбцы в ваших данных, чтобы они соответствовали аргументам, например так ... 

names(sankeyData$nodes)[1] <- "Name"
names(sankeyData$links)[1:3] <- c("Source", "Target", "Value")

sankeyNetwork(Links = sankeyData$links, 
              Nodes = sankeyData$nodes, 
              Source = "Source",
              Target = "Target", 
              Value = "Value", 
              NodeID = "Name",
              units = "$", 
              fontSize = 12, 
              nodeWidth = 30)
...