桑基图中流量节点大小不符的可视化问题求助

问题根源 #

你当前的数据集是单个节点各取值的总计数，而非节点间流转的路径级流量数据。桑基图的核心是展示数据从上游节点到下游节点的流转路径及对应流量，因此必须明确每条完整路径（如node1=0→node2=0→node3=0）的流量，才能让节点大小（对应总流量）和数据流宽度（对应路径流量）正确映射。

方案1：使用ggalluvial（需路径级数据） #

首先需要将数据整理为每条流转路径一行的格式，示例如下（你需要替换为真实的路径流量数据）：

然后调整代码，正确映射路径和流量：

library(ggplot2)
library(ggalluvial)

# 替换为你的真实路径数据
df <- data.frame(
  node1 = c(0,0,0,0,1,1,1,1),
  node2 = c(0,0,1,1,0,0,1,1),
  node3 = c(0,1,0,1,0,1,0,1),
  count = c(3800, 520, 1182, 4505, 521, 0, 0, 717)
)

ggplot(df, aes(y = count, 
               axis1 = factor(node1), 
               axis2 = factor(node2), 
               axis3 = factor(node3))) +
  # 绘制数据流，按node1取值填充颜色
  geom_alluvium(aes(fill = factor(node1)), width = 1/12) +
  # 绘制节点层，设置边框和填充色
  geom_stratum(width = 1/12, fill = "white", color = "black") +
  # 添加节点标签
  geom_text(stat = "stratum", aes(label = after_stat(stratum))) +
  # 设置坐标轴节点名称
  scale_x_discrete(limits = c("node1", "node2", "node3"), expand = c(0.05, 0.05)) +
  scale_fill_brewer(type = "qual", palette = "Set1") +
  theme_minimal()

此代码会自动根据路径流量总和计算节点层的高度，同时数据流宽度对应单条路径的流量。

方案2：使用networkD3（手动构建节点与链接） #

如果暂时无法获取路径级数据，可以手动定义节点间的流量分配（需保证流量逻辑自洽，比如上游节点总流量等于下游接收的流量总和），用sankeyNetwork实现可视化：

library(networkD3)

# 定义节点列表（包含所有节点取值组合）
nodes <- data.frame(
  name = c("node1_0", "node1_1", "node2_0", "node2_1", "node3_0", "node3_1")
)

# 定义链接数据：source/target为节点索引（从0开始），value为流量
links <- data.frame(
  source = c(0, 0, 1, 1, 2, 2, 3, 3),
  target = c(2, 3, 2, 3, 4, 5, 4, 5),
  value = c(3800, 5732, 521, 713, 4321, 0, 1233, 4454)
)

# 绘制桑基图
sankeyNetwork(Links = links, Nodes = nodes,
              Source = "source", Target = "target",
              Value = "value", NodeID = "name",
              fontSize = 12, nodeWidth = 30)

此方法中，节点的宽度会自动对应流入/流出的总流量，数据流宽度对应节点间的流量大小。

内容的提问来源于stack exchange，提问作者Olagren