Expose position arg on geom_hline() and geom_vline() (#5965)

Author: yutannihilation

NEWS.md

@@ -104,6 +104,8 @@
   the `nbin` argument (@teunbrand, #5882, #5036)
 * `after_stat()` and `after_scale()` throw warnings when the computed aesthetics
   are not of the correct length (#5901).
+* `geom_hline()` and `geom_vline()` now have `position` argument
+  (@yutannihilation, #4285).
 
 # ggplot2 3.5.1
 

R/geom-hline.R

@@ -4,6 +4,7 @@ NULL
 #' @export
 #' @rdname geom_abline
 geom_hline <- function(mapping = NULL, data = NULL,
+                       position = "identity",
                        ...,
                        yintercept,
                        na.rm = FALSE,
@@ -29,7 +30,7 @@ geom_hline <- function(mapping = NULL, data = NULL,
     mapping = mapping,
     stat = StatIdentity,
     geom = GeomHline,
-    position = PositionIdentity,
+    position = position,
     show.legend = show.legend,
     inherit.aes = FALSE,
     params = list2(

R/geom-vline.R

@@ -4,6 +4,7 @@ NULL
 #' @export
 #' @rdname geom_abline
 geom_vline <- function(mapping = NULL, data = NULL,
+                       position = "identity",
                        ...,
                        xintercept,
                        na.rm = FALSE,
@@ -29,7 +30,7 @@ geom_vline <- function(mapping = NULL, data = NULL,
     mapping = mapping,
     stat = StatIdentity,
     geom = GeomVline,
-    position = PositionIdentity,
+    position = position,
     show.legend = show.legend,
     inherit.aes = FALSE,
     params = list2(