Санки участок с пакетом речного участка

Question

Enchanté.

РЕДАКТИРОВАТЬ: Решение

Как указывают MartineJ и emilliman5, узлы должны иметь уникальную метку (ниже).

library("riverplot")
nodes<-structure(list(ID = c("2011+", "2011-", "2016+", "2016-"), x = c(20, 
20, 30, 30), y = c(50, 40, 50, 40)), class = "data.frame", row.names = c(NA, 
-4L))
edges<-structure(list(N1 = c("2011+", "2011-", "2011+", "2011-"), N2 = 
c("2016+", "2016-", "2016-", "2016+"), Value = c(461, 7, 0, 46)), class = 
"data.frame", row.names = c(NA, -4L))

river <- makeRiver(nodes,edges)
riverplot(river)

Я пытался нарисовать диаграмму / речной график Сэнки (используя пакет riverplot) того, как регистрации рака развиваются с течением времени, хотя этот код пока что принес мне небольшой успех. Может ли кто-нибудь направить меня на недостатки этого кода?

Warning message: In checkedges(x2$edges, names(x2)) : duplicated edge information, removing 1 edges

Вот код подозреваемого:

library(“riverplot”)

edges<-structure(list(N1 = c("+", "-", "+", "-"), N2 = c("+", "-", "-", "+"), Value = c(664L, 50L, 0L, 46L)), .Names = c("N1", "N2", "Value"), class = "data.frame", row.names = c(NA, -4L))

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

nodes$x = c(1,2)
rownames(nodes) = nodes$ID

rp <- list(nodes=nodes, edges=edges)

class(rp) <- c(class(rp), "riverplot")

plot(rp)

И данные, которые включены в код:

N1    N2    Value
 +     +     664
 -     -      50
 +     -       0
 -     +      46

Вечно благодарен.

Answer 1

Ваши узлы должны быть названы уникально, а затем использовать nodes$labels чтобы вернуть его обратно:

library(riverplot)

edges<-structure(list(N1 = c("+", "-", "+", "-"), N2 = c("+", "-", "-", "+"), Value = c(664L, 50L, 0L, 46L)), .Names = c("N1", "N2", "Value"), class = "data.frame", row.names = c(NA, -4L))
edges$N1 <- paste0(edges$N1, "a")
edges$N2 <- paste0(edges$N2, "b")
nodes = data.frame(ID = unique(c(edges$N1, edges$N2)), stringsAsFactors = FALSE)

nodes$x = c(1,1,2,2)
nodes$labels <- as.character(substr(nodes$ID, 1, 1))
rownames(nodes) = nodes$ID

rp <- list(nodes=nodes, edges=edges)

class(rp) <- c(class(rp), "riverplot")

plot(rp)

Answer 2

Похоже, вы используете одно и то же значение несколько раз в N1 (и в N2). Попробуйте сделать их все по-разному (по столбцам) и попробуйте еще раз, fi:

N1: плюс1 минус1 плюс2 минус2

Если вы хотите показать только + и -: в makeRiver, есть опция **node_labels **