Criar fluxograma usando DiagrammeR no R

 library(DiagrammeR)

#Input do usuário: a, b, d
a <- 10
b <- 5.5
d <- 6.5


###Função divide cria objetos ameixa, banana, damasco
  divide<-function (x,y,z){
    ameixa <<- x
    banana <<- y*10
    damasco <<- z*100}
 
 
###Função divide a partir dos valores do usuário: a, b, d
  divide(a,b,d)
    ab <<- ameixa*banana
    ad <<- ameixa*damasco
 
 
###Cria fluxograma
  grViz(diagram = "digraph flowchart {
 
  #Fluxograma exibe valores inputados pelo usuário
  node [color = none, style = filled, shape=square]
  total [label= 'Input a = @@1']
  total->1 [arrowhead=vee]
  {rank = same; 1; total;}
 
  node [color = none, style = filled, shape=square]
  legenda [label= 'input b = @@2 \n input c = @@3']
  1->legenda [arrowtail=vee] [arrowhead=vee] [dir=back]
   {rank = same; 1; legenda;}
 
 
  node [fontname = arial, shape = oval]
  1 [label = '@@1']
  node [color = lightblue, style = filled]
  2 [label = '@@2']
  node [color = grey, style = filled]
  3 [label = '@@3']
  node [color = red, style = filled]
  4 [label = '@@4']
  5 [label = '@@5']
  6 [label = '@@6']
 
 
  1->2 [xlabel='a vezes b'];
  1->3 [label='a vezes d'];
  3->4 [xlabel='20%'];
  3->5 [label='30%']
  3->6 [label='50%']
 
}
 
  [1]: a
  [2]: ab
  [3]: ad
  [4]: ad*0.2
  [5]: ad*0.3
  [6]: ad*0.5
 
")

 

 

###Fonte: https://towardsdatascience.com/r-visualizations-flow-charts-in-r-4cfa7f783872
###Fonte: https://rich-iannone.github.io/DiagrammeR/graphviz_and_mermaid.html