Plot Causal Diagram using DiagrammeR

causalDAG.R

library(DiagrammeR)
library(DiagrammeRsvg)
library(rsvg)
#https://elevanth.org/blog/2021/06/21/regression-fire-and-dangerous-things-2-3/
g <- grViz("digraph{
                     node[shape = plaintext]
                     U[label = 'U', shape=circle]
                     B1[label = 'B1']
                     B2[label = 'B2']
                     M[label = 'M', fontcolor='red']
                     D[label = 'D', fontcolor='blue']
                     edge[color = black]
                     B1 -> M
                     B2 -> D
                     U -> M
                     U -> D
                     M -> D
                     }")

print(g)

rsvg_png(charToRaw(export_svg(g)), 
         "graph.png",
         width = 700, height = 700)