abcd_complete <- behaviorchange::abcd(behaviorchange::abcd_specs_complete)$output$graph;
abcd_complete <- apply_graph_theme(abcd_complete,
c("penwidth", 5, "node"),
c("penwidth", 15, "edge"));
Run the code above in your browser using DataLab