add stat to hline vline abline

Author: sierrajohnson

R/geom-abline.R

@@ -73,7 +73,9 @@ geom_abline <- function(mapping = NULL, data = NULL,
                         slope,
                         intercept,
                         na.rm = FALSE,
-                        show.legend = NA) {
+                        show.legend = NA,
+                        stat = "identity",
+                        inherit.aes = FALSE) {
 
   # If nothing set, default to y = x
   if (is.null(mapping) && missing(slope) && missing(intercept)) {
@@ -108,11 +110,11 @@ geom_abline <- function(mapping = NULL, data = NULL,
   layer(
     data = data,
     mapping = mapping,
-    stat = StatIdentity,
+    stat = stat,
     geom = GeomAbline,
     position = PositionIdentity,
     show.legend = show.legend,
-    inherit.aes = FALSE,
+    inherit.aes = inherit.aes,
     params = list2(
       na.rm = na.rm,
       ...

R/geom-hline.R

@@ -8,7 +8,9 @@ geom_hline <- function(mapping = NULL, data = NULL,
                        ...,
                        yintercept,
                        na.rm = FALSE,
-                       show.legend = NA) {
+                       show.legend = NA,
+                      stat = "identity",
+                      inherit.aes = FALSE) {
 
   # Act like an annotation
   if (!missing(yintercept)) {
@@ -28,11 +30,11 @@ geom_hline <- function(mapping = NULL, data = NULL,
   layer(
     data = data,
     mapping = mapping,
-    stat = StatIdentity,
+    stat = stat,
     geom = GeomHline,
     position = position,
     show.legend = show.legend,
-    inherit.aes = FALSE,
+    inherit.aes = inherit.aes,
     params = list2(
       na.rm = na.rm,
       ...

R/geom-vline.R

@@ -8,7 +8,9 @@ geom_vline <- function(mapping = NULL, data = NULL,
                        ...,
                        xintercept,
                        na.rm = FALSE,
-                       show.legend = NA) {
+                       show.legend = NA,
+                      stat = "identity",
+                      inherit.aes = FALSE) {
 
   # Act like an annotation
   if (!missing(xintercept)) {
@@ -28,11 +30,11 @@ geom_vline <- function(mapping = NULL, data = NULL,
   layer(
     data = data,
     mapping = mapping,
-    stat = StatIdentity,
+    stat = stat,
     geom = GeomVline,
     position = position,
     show.legend = show.legend,
-    inherit.aes = FALSE,
+    inherit.aes = inherit.aes,
     params = list2(
       na.rm = na.rm,
       ...