tidy_dagitty_obj <- dagify(y ~ x + z, x ~ z) %>%
tidy_dagitty()
dag <- pull_dag(tidy_dagitty_obj)
dag_data <- pull_dag_data(tidy_dagitty_obj)
tidy_dagitty_obj %>%
dplyr::mutate(name = toupper(name)) %>%
# recreate the DAG component
update_dag()
dag_data$label <- paste0(dag_data$name, "(observed)")
update_dag_data(tidy_dagitty_obj) <- dag_data
Run the code above in your browser using DataLab