Background I am developing a custom geom for ggplot2 in R that starts by building on geom_segment(): geom_custom <- function(mapping = NULL, data = NULL, stat = “identity”, position = “identity”, …, na.rm = FALSE, show.legend = NA, inherit.aes = TRUE) { out <- layer( data = data, mapping = mapping, stat = stat, geom […]