Riverplot-Paket in R - Fehler in Kanten Spaltennamen

Question

Ich versuche, das Riverplot-Paket in R zu verwenden, um ein Sankey-Diagramm zu erstellen, aber ich erhalte eine Fehlermeldung über die Spaltennamen im Kantenrahmen.

ich die Installation der readr und riverplot Pakete und dann dies zu tun:

> my_data <- read_csv("~/RProjects/my_data.csv") 
> 
> edges = rep(my_data, col.names = c("N1","N2","Value")) 
> 
> nodes = data.frame(ID = unique(c(edges$N1, edges$N2))) 
> 
> river <- makeRiver(nodes, edges) 
> 
> return(plot(river)) 

Aber am vorletzten Befehl riverplot Objekt „Fluss“ Ich bekomme Einrichtung dieser Fehler:

Error in checkedges(edges, nodes$ID) 
    edges must have the columns N1, N2 and Value 

Die ursprüngliche CSV verfügt bereits über diese Spaltenüberschriften. Ich bin mir nicht sicher, was ich falsch mache. Ich bin ein kompletter Neuling für R, also sei bitte geduldig, wenn ich das Offensichtliche vermisse!

dput auf meiner CSV-Datei sieht wie folgt aus:

structure(list(N1 = c("Cambridge", "Cambridge", "Cambridge", 
"Cambridge", "Cambridge", "South Cambs", "South Cambs", "South Cambs", 
"South Cambs", "South Cambs", "Rest of East", "Rest of East", 
"Rest of East", "Rest of East", "Rest of East", "Rest of UK", 
"Rest of UK", "Rest of UK", "Rest of UK", "Rest of UK", "Abroad", 
"Abroad", "Abroad", "Abroad", "Abroad"), N2 = c("Cambridge", 
"South Cambs", "Rest of East", "Rest of UK", "Abroad", "Cambridge", 
"South Cambs", "Rest of East", "Rest of UK", "Abroad", "Cambridge", 
"South Cambs", "Rest of East", "Rest of UK", "Abroad", "Cambridge", 
"South Cambs", "Rest of East", "Rest of UK", "Abroad", "Cambridge", 
"South Cambs", "Rest of East", "Rest of UK", "Abroad"), Value = c(106068L, 
1616L, 2779L, 13500L, 5670L, 2593L, 138263L, 2975L, 4742L, 1641L, 
2555L, 3433L, 0L, 0L, 0L, 6981L, 3802L, 0L, 0L, 0L, 5670L, 1641L, 
0L, 0L, 0L)), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, 
-25L), .Names = c("N1", "N2", "Value"), spec = structure(list(
    cols = structure(list(N1 = structure(list(), class = c("collector_character", 
    "collector")), N2 = structure(list(), class = c("collector_character", 
    "collector")), Value = structure(list(), class = c("collector_integer", 
    "collector"))), .Names = c("N1", "N2", "Value")), default = structure(list(), class = c("collector_guess", 
    "collector"))), .Names = c("cols", "default"), class = "col_spec")) 

str (Kanten) ergibt:

Classes ‘tbl_df’, ‘tbl’ and 'data.frame': 25 obs. of 3 variables: 
$ N1 : chr "Cambridge" "Cambridge" "Cambridge" "Cambridge" ... 
$ N2 : chr "Cambridge" "South Cambs" "Rest of East" "Rest of UK" ... 
$ Value: int 106068 1616 2779 13500 5670 2593 138263 2975 4742 1641 ... 
- attr(*, "spec")=List of 2 
    ..$ cols :List of 3 
    .. ..$ N1 : list() 
    .. .. ..- attr(*, "class")= chr "collector_character" "collector" 
    .. ..$ N2 : list() 
    .. .. ..- attr(*, "class")= chr "collector_character" "collector" 
    .. ..$ Value: list() 
    .. .. ..- attr(*, "class")= chr "collector_integer" "collector" 
    ..$ default: list() 
    .. ..- attr(*, "class")= chr "collector_guess" "collector" 
    ..- attr(*, "class")= chr "col_spec" 

Answer 1

Ich glaube, das Problem ist, dass Sie die gewünschte ID Spalte ausgelassen und damit verwirrt der Befehl.

edges = rep(my_data, col.names = c("N1","N2","Value")) 
edges <- data.frame(edges) 
edges$ID <- 1:25 

nodes = data.frame(ID = unique(c(edges$N1, edges$N2))) 

river <- makeRiver(nodes, edges) 

Der obige Code beseitigt die Fehlermeldung. Beachten Sie, dass es eine unabhängige Warnung bezüglich wiederholter Kanteninformationen auslöst.

Warning message: 
In checkedges(edges, nodes$ID) : 
    duplicated edge information, removing 10 edges