DiagrammeR test

I love beer!!

library("DiagrammeR")
boxes_and_circles <- "
digraph boxes_and_circles {

  # node statemetntを設定
  node [shape = box,
        color = lightblue]
    からあげ; 餃子; 焼き鳥

  node [shape = box,
        color = yellow]
    ビールうめぇ

  # edge statementを設定
  edge [color = gray,
        fontsize = 8] // 矢印
    からあげ->ビールうめぇ [label = .25]
    餃子->ビールうめぇ [label = .22]
    焼き鳥->ビールうめぇ [label = .34]

  # graph statementを設定
  graph [overlap = true, fontsize = 10]
}
"

grViz(boxes_and_circles)