geom_dag_collider_edges  R Documentation 
Adjusting for a collider activates pathways between the parent of the collider. This geom adds a curved edge between any such parent nodes.
geom_dag_collider_edges( mapping = NULL, data = NULL, stat = "identity", position = "identity", ..., size = 0.6, curvature = 0.5, angle = 90, ncp = 5, arrow = NULL, lineend = "butt", na.rm = FALSE, show.legend = NA, inherit.aes = TRUE )
mapping 
Set of aesthetic mappings created by 
data 
The data to be displayed in this layer. There are three options: If A A 
stat 
The statistical transformation to use on the data for this layer, as a string. 
position 
Position adjustment, either as a string, or the result of a call to a position adjustment function. 
... 
Other arguments passed on to 
size 
a numeric vector of length 1. Edge width 
curvature 
A numeric value giving the amount of curvature. Negative values produce lefthand curves, positive values produce righthand curves, and zero produces a straight line. 
angle 
A numeric value between 0 and 180, giving an amount to skew the control points of the curve. Values less than 90 skew the curve towards the start point and values greater than 90 skew the curve towards the end point. 
ncp 
The number of control points used to draw the curve. More control points creates a smoother curve. 
arrow 
specification for arrow heads, as created by arrow(). 
lineend 
Line end style (round, butt, square). 
na.rm 
If 
show.legend 
logical. Should this layer be included in the legends?

inherit.aes 
If 
library(dagitty) library(ggplot2) dagify(m ~ a + b, x ~ a, y ~ b) %>% tidy_dagitty() %>% control_for("m") %>% ggplot(aes(x = x, y = y, xend = xend, yend = yend, shape = adjusted)) + geom_dag_edges() + geom_dag_collider_edges() + geom_dag_point() + geom_dag_text() + theme_dag() + scale_adjusted()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.