如何使用R制作简单的流程图 DiagrammeR package

今天星期六啦~搬运小蚂蚁回来写本月的博客了。
参考文章
https://datascienceplus.com/how-to-build-a-simple-flowchart-with-r-diagrammer-package/
http://www.bagualu.net/wordpress/archives/6177#diagram
http://rich-iannone.github.io/DiagrammeR/

library(DiagrammeR)
#Let’s use DiagrammeR and Graphvize
grViz("
digraph boxes_and_circles{ #初始语句用点语句的有向图
#add node statements
node [shape=circle #定义形状为圆形
fontname=Helvetica #改变字体
penwidth=2.0 #更改节点的笔画宽度]
A; B; C; D; E; F;

node [shape=box] #定义所有以下节点都是框的形状
1; 2; 3; 4; 5; 6; 7; 8
#add edge statements
edge [arrowhead = diamond] #使用箭头属性更改箭头
A->1; B->2; B->3; B->4; C->A;
1->D; E->A; 2->4; 1->5; 1->F;
E->6; 4->6; 5->7; 6->7;
3->8[label = 'label! ',
fontname=Helvetica #使用适当的节点标签添加字体]
#add a graph statement
graph [nodesep = 0.1]#更改节点之间的分割距离
}")

再来一个例子
grViz("digraph flowchart {
# node definitions with substituted label text
node [fontname = Helvetica, shape = rectangle]
tab1 [label = ‘@@1’]
tab2 [label = ‘@@2’]
tab3 [label = ‘@@3’]
tab5 [label = ‘@@5’]
tab7 [label = ‘@@7’]
tab6 [label = ‘@@6’]
tab9 [label = ‘@@9’]
node [fontname = Helvetica, shape = circle, penwidth=2.0]
tab4 [label = ‘@@4’]
tab8 [label = ‘@@8’]
# edge definitions with the node IDs
tab1 -> tab2 -> tab3;
tab3 -> tab4 -> tab5;
tab5 -> tab6[label =‘是’,fontname = Helvetica];
tab5 -> tab7[label = '否 ',fontname=Helvetica];
tab3 -> tab8 -> tab9;
}
[1]: ‘开始’
[2]: ‘改备注’
[3]: ‘性别’
[4]: ‘女’
[5]: ‘单身’
[6]: ‘爆照’
[7]: ‘分手’
[8]: ‘男’
[9]: ‘发红包’
")