Merge pull request #5 from annataylor9916/linewidth_fix

Update geom_hpline.R
wilkelab · Dec 3, 2024 · d43afb6 · d43afb6
2 parents aeae12b + 27d02eb
commit d43afb6
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/R/geom_hpline.R b/R/geom_hpline.R
@@ -30,8 +30,7 @@ geom_hpline <- function(mapping = NULL, data = NULL,
                         na.rm = FALSE,
                         show.legend = NA,
                         inherit.aes = TRUE) {
-  layer(
-    data = data,
+  layer(data = data,
     mapping = mapping,
     stat = stat,
     geom = GeomHpline,
@@ -51,9 +50,9 @@ geom_hpline <- function(mapping = NULL, data = NULL,
 #' @export
 GeomHpline <- ggproto("GeomHpline", GeomSegment,
   required_aes = c("x", "y"),
-  non_missing_aes = c("size", "colour", "linetype", "width"),
+  non_missing_aes = c("linewidth", "colour", "linetype", "width"),
   default_aes = aes(
-    width = 0.5, colour = "black", size = 2, linetype = 1,
+    width = 0.5, colour = "black", linewidth = 2, linetype = 1,
     alpha = NA
   ),