populate x/y with 0 if absent

Author: teunbrand

R/stat-ydensity.R

@@ -4,7 +4,7 @@
 #' @export
 StatYdensity <- ggproto(
   "StatYdensity", Stat,
-  required_aes = c("x", "y"),
+  required_aes = "x|y",
   non_missing_aes = "weight",
 
   setup_params = function(data, params) {
@@ -23,6 +23,12 @@ StatYdensity <- ggproto(
     params
   },
 
+  setup_data = function(self, data, params) {
+    var <- flipped_names(flip = params$flipped_aes)$x
+    data[[var]] <- data[[var]] %||% 0
+    data
+  },
+
   # `draw_quantiles` is here for deprecation repair reasons
   extra_params = c("na.rm", "orientation", "draw_quantiles"),