custom_dag

library(ggdag)
confounder_triangle() %>% 
  tidy_dagitty() %>% 
  dplyr::mutate(dashed = ifelse(to == "y", "dashed", "solid")) %>% 
  ggplot(aes(x, y, xend = xend, yend = yend)) +
  geom_dag_point() +
  geom_dag_text() +
  geom_dag_edges_link(
    aes(label = to, edge_linetype = dashed), 
    angle_calc = 'along',
    label_dodge = unit(3, 'mm'),
    arrow = NULL)