DiagrammeR与图

Question

我试图从以下几个方面复制流程图：

http://www.consort-statement.org/consort-statement/flow-diagram

使用下面R中的DiagrammeR包是我目前取得的成果，但我无法使“排除”框与空白节点水平对齐。有什么建议吗？

```{r, echo=FALSE, warning=FALSE, results='hide', message=FALSE}

图书馆(Pacman)

p_load(DiagrammeR)

grViz(“有向图a_nice_graph {

节点fontname = Helvetica，形状=方框，宽度= 4，填充颜色= LightSalmon，样式=填充

评估标签=‘评估可使用性(n = )’

随机标记=“随机(n =)”

allocatedA标签=“分配给干预A (n =)”

allocatedB标签=“分配给干预B (n =)”

lostA标签=“后续跟踪丢失(n =)”

lostB标签=“后续跟踪丢失(n =)”

analyzedA标签=“分析(n =)”

analyzedB标签=“分析(n =)”

空白标签= ''，宽度= 0.01，高度= 0.01

排除标签=“排除(n =)”

子图cluster_0 {

rankdir = TD

color = white

assessed -> blank [arrowhead = none]

blank -> randomized

}

子图cluster_1 {

rankdir = LR

color = white

blank -> excluded

}

随机-> {allocatedA allocatedB}

allocatedA -> lostA

allocatedB -> lostB

lostA -> analyzedA

lostB -> analyzedB

}")

到目前为止，这是最终的阴谋：

​

​

Answer 1

我不使用RMarkdown，但已经检查了浏览器，我相信这在你的设置中也能正常工作。关键是把blank和excluded放在同一个级别上。不需要您尝试过的子图：

digraph a_nice_graph
{
    node [fontname = Helvetica, shape = box, width = 4, fillcolor = LightSalmon, style = filled]
    assessed [label = 'Assessed for Elibibility (n = )']
    randomized [label = 'Randomized (n = )']
    allocatedA [label = 'Allocated to intervention A (n = )']
    allocatedB [label = 'Allocated to intervention B (n = )']
    lostA [label = 'Lost to follow-up (n = )']
    lostB [label = 'Lost to follow-up (n = )']
    analyzedA [label = 'Analyzed (n = )']
    analyzedB [label = 'Analyzed (n = )']
    blank[label = '', width = 0.01, height = 0.01]
    excluded[label = 'Excluded (n = )']

    { rank = same; blank excluded }

    assessed -> blank[ dir = none ];
    blank -> excluded[ minlen = 3 ];
    blank -> randomized;
    randomized -> {allocatedA allocatedB};
    allocatedA -> lostA;
    allocatedB -> lostB;
    lostA -> analyzedA;
    lostB -> analyzedB;
}

收益率

​

​