мне удалось построить на Сэнки схему как следующее, col1 содержит идентификаторыНастройка googleVis Sankey диаграммы в R, чтобы добавить настроенное подсказку
set.seed(1000)
df <- data.frame(col1= sample(c(1:15), 15, replace = F),
col2=sample(c("aa", "bb","cc"), 15, replace=TRUE),
col3=sample(c('a','b','c','d'), 15, replace=TRUE, prob=c(0.25, 0.25, 0.20, 0.30)))
grp<-df %>%
group_by(col2, col3) %>%
summarise(n=n())
View(grp)
Sankeyy <- gvisSankey(grp, from="col2", to="col3", weight="n",
options=list(
sankey="{link: {color: { fill: '#d799ae' } },
node: { color: { fill: '#a61d4c' },
label: { color: '#871b47' } }}"))
plot(Sankeyy)
Далее приведен помогает отслеживать идентификаторы, принадлежащие каждой группе
grp<-df %>%
group_by(col2, col3) %>%
summarise(n=n(), rows=paste(sort(col1), collapse = ", "))
View(grp)
Sankeyy <- gvisSankey(grp, from="col2", to="col3", weight="n",
options=list(
sankey="{link: {color: { fill: '#d799ae' } },
node: { color: { fill: '#a61d4c' },
label: { color: '#871b47' } }}"))
plot(Sankeyy)
Но я получаю следующее сообщение об ошибке.
Что правильный способ включает в себя идентификаторы, принадлежащие каждой группе в Сэнки диаграмме подсказке?