R 绘图分类变化 - 桑基图

R plot categorial changes - sankey diagram

有人知道如何在 R 中绘制两个分类变量的变化吗?

如本例:

http://www.sueddeutsche.de/politik/waehlerwanderung-in-hamburg-wer-wem-die-stimmen-stahl-1.2353382

(不含动态)

所以我有两个分类变量,例如:Pre 和 Post

Pre = sample(1:100,10000,replace=TRUE)

Post = 样本(1:100,10000,replace=TRUE)

感谢任何建议!

对于非常简单、严肃的情节,您可以使用 segments() 函数。

plot(NULL, xlim=c(1,2), ylim=c(0,100))

segments(x0, Pre, x1, Post)

这是所谓的桑基图的示例:

set.seed(1)
(edgelist <- transform(subset(expand.grid(source = c("spd", "linke", "cdu"), target = c("spd ", "linke ", "cdu "), stringsAsFactors = FALSE), target != paste0(source, " ")), value = sample(1:200, nrow(edgelist))))
#   source target value
# 2  linke   spd     54
# 3    cdu   spd     75
# 4    spd linke    114
# 6    cdu linke    179
# 7    spd   cdu     40
# 8  linke   cdu    176

require(rCharts)
sankeyPlot <- rCharts$new()
sankeyPlot$setTemplate(script = "layouts/chart.html")
sankeyPlot$setLib('http://timelyportfolio.github.io/rCharts_d3_sankey') 
sankeyPlot$set(data = edgelist, nodeWidth = 55, nodePadding = 50, width = 700, height = 400)
sankeyPlot