使用ggplot2，plotly和ggplotly创建Sankey图

Question

我想使用ggplot2和plotly创建一个sankey图，并使用ggplotly调用。我需要一些很好的工作实例和一些重要的链接。我已经在一个情节中实现了一个，这是我实现的快照。请帮助和谢谢。

编辑脚本：

library(googleVis)
datSK <- data.frame(From=c(rep("r1","r2","r3","r4","r5","r6","r7")),              
To=c(rep(c("Blood Test", "Check Out", "Discuss Results","MRI SCAN",
                           "Registration","Triage and Assessment","XRay"))),
Weight=c(237,492,495,236,500,500,261))
Sankey <- gvisSankey(datSK, from="From", to="To", weight="Weight",
                 options=list(
                   sankey="{link: {color: { fill: '#d799ae' } },
                        node: { color: { fill: '#a61d4c' },
                        label: { color: '#871b47' } }}"))
plot(Sankey)

Answer 1

这个问题现在已经非常老了，这个答案还没有出现，但是ggforce软件包现在允许在ggplot中绘制sankey图。目前尚无ggplotly支持（因此也没有交互功能），但对于简单的sankeys而言，它是我发现的最佳选择，因为它可与整洁的数据框架一起使用。