如何解决ggplot R Sankey图,冲积层?
我正在尝试使用冲积包装(https://cran.r-project.org/web/packages/ggalluvial/vignettes/ggalluvial.html)在R中制作Sankey图。到目前为止,我可以复制我发现的许多示例。但是,我专门尝试复制一些我没有看到的使用冲积包装的代码。
基本上,数据集表示到达某个站点的人员(可能是任何东西),一些人进入下一个站点,有些人丢失(因此被截断)。在冲积包装中,我不知道该怎么做。我已经附上了它的外观快照(由http://sankeymatic.com/制造)。
我想应该很基本。我显示的图像中的另一件事是,我希望丢失的个人栏在每个节点上具有不同的颜色。
有人可以告诉我我需要的代码和代码结构吗?
解决方法
您可以尝试使用包 PantaRhei
:
library(PantaRhei)
library(tibble)
library(grid)
# define node position
nodes <-
tribble(
~ID,~label,~x,~y,~label_pos,"s1","Station 1","1","0","below","s2a","Station 2: arrived","2","0.1","above","s2m","Station 2: missing","s3a","Station 3: arrived","3","0.2","s3m","Station 3: missing","s4a","Station 4: arrived","4","0.3","s4m","Station 4: missing","s5a","Station 5: arrived","5","0.4","s5m","Station 5: missing","below"
)
# define size of flows
flows <-
tribble(
~from,~to,~substance,~quantity,"a",80,"m",20,60,35,25,15,20
)
# define flow colours
colors <- tribble(
~substance,~color,"green","red"
)
# node formating
ns <- list(type = "bar",gp=gpar(fill = "lightblue",col = "white",lwd = 1),mag_pos = "inside",mag_fmt = "%.0f")
# final sankey image
sankey(nodes,flows,colors,node_style = ns)
这给了你:
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。