因果ダイアグラム：DiagrammeR使ってみた

causaldia.R

library(DiagrammeR)
library(DiagrammeRsvg)
library(magrittr)
library(rsvg)

##佐藤俊哉『宇宙怪人しまりす　統計よりも重要なことを学ぶ』（朝倉書店）より
g <- grViz("digraph{
                     graph[rankdir = TB]
                     node[shape = rectangle]  
                     A[label = 'かぜの\n重症度']
                     B[label = 'ヨクナール\n使用']
                     C[label = 'かぜ症状の\n回復']
                     edge[color = black]
                     A -> B
                     A -> C
                     B -> C
                     }")

print(g)
g %>% export_svg() %>% 
  charToRaw() %>% 
  rsvg_png("graph.png")