Skip to content

Instantly share code, notes, and snippets.

@peterdalle
Created September 22, 2019 07:57
Show Gist options
  • Save peterdalle/0333e1fda48495cac40faae0da36bc95 to your computer and use it in GitHub Desktop.
Save peterdalle/0333e1fda48495cac40faae0da36bc95 to your computer and use it in GitHub Desktop.
Gin & tonic <--> brain size DAG
library(ggdag)
gin_dag <- dagify(happy ~ gin_tonic,
brain_size ~ happy,
gin_tonic ~ brain_size,
labels = c("brain_size" = "Hjärnstorlek",
"gin_tonic" = "Gin & Tonic",
"happy" = "Glad"),
exposure = "gin_tonic",
outcome = "brain_size") %>%
tidy_dagitty()
ggdag(gin_dag, text = FALSE, use_labels = "label") +
theme_void()
@peterdalle
Copy link
Author

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment