r - 在美人鱼图中侧向融合箭头

Question

如何在 R 顺序美人鱼图中添加横向融合箭头？在下面的示例中：

library(DiagrammeR)
mermaid("
graph TB
    A[GE Solution]-->C{1:1}
    B[GA Solution]-->C{1:1} 
    C{1:1}-->D[Stir 10 mins at 500 r/min]
    D[Stir 10 mins at 500 r/min]-->E[Homogenisation at 10000 r/min]
    ")

我怎么能产生如下的东西？

Answer 1

我玩过mermaid，但我不确定是否有功能，它看起来像是一个简单的文档解决方案，而不是一个具有很大灵活性的解决方案。但是，您可以使用 graphViz 制作相同的图表：

library(DiagrammeR)

grViz("digraph dot {
    node [shape=rectange];

    d1 [shape=point,width=0.01,height=0.01];
    {'GE Solution', 'GA Solution'}->d1[dir=none];
    d1->'Stir 10 mins at 500 r/min';
    'Stir 10 mins at 500 r/min'->'Homogenisation at 10000 r/min'}")

编辑以回复评论：使用子图并对不可见的点（d2在本例中）和您希望使其与其水平相同的节点（此处40oC）进行排名。

grViz("digraph dot {
node [shape=rectange];

d1 [shape=point,width=0.01,height=0.01];
d2 [shape=point, width=0.01, height=0.01];
{'GE Solution', 'GA Solution'}->d1[dir=none];
d1->'Stir 10 mins at 500 r/min';
'Stir 10 mins at 500 r/min'->d2[dir=none];
subgraph {
    rank=same;
    d2; '40oC';
}
d2->'40oC'[dir=none];
d2->'Homogenisation at 10000 r/min'}")