在ggalluvial中混合/合并流动

Question

我需要使用ggalluvial创建特定类型的情节。来自包装的小插图：

require(ggalluvial)
data(vaccinations)
vaccinations <- transform(vaccinations,
                          response = factor(response, rev(levels(response))))
ggplot(vaccinations,
       aes(x = survey, stratum = response, alluvium = subject,
           y = freq,
           fill = response, label = response)) +
  scale_x_discrete(expand = c(.1, .1)) +
  geom_flow() +
  geom_stratum(alpha = .5) +
  geom_text(stat = "stratum", size = 3) +
  theme(legend.position = "none") +
  ggtitle("vaccination survey responses at three points in time")

给出此图：

现在，我需要产生一个图，其中两个不同的节点“ Merge”（或收集）在同一部分中的两个不同的“流”第一个块中的另一个节点（例如，从“始终”和“有时”的流动在“始终”第二个块上的同一部分收敛）。显然，频率将与第一个块和第二个节点不同。

我试图操纵数据库更改频率，但是似乎无法在末端节点的同一部分中进行两个流“收敛”。

有人有猜测吗？

编辑：要回答评论，这是我想到的输出（从另一个答案中获取：创建sankey/冲积图，其中链接在节点上组合）：

其中两个“ flow”（从红色和绿色盒子中）“汇聚”在粉红色盒子上（在粉红色盒子上占据同一位置）。