library(ggdag)
fork_dag <- dagify(
temp ~ canopy + SVF,
canopy ~ SVF,
labels = c(
"temp" = "Temperature",
"canopy" = "Canopy Cover",
"SVF" = "Sky View Factor"
),
coords = list(x = c(canopy = -1, SVF = 0, temp = 1),
y = c(canopy = 1, SVF = 0, temp = 1)),
exposure = "canopy",
outcome = "temp"
)
ggdag(fork_dag, text = FALSE, use_labels = "label") + theme_dag()