Produces x-axis title automatically when no data added. Fixes #5647.

tidyverse · Aug 15, 2024 · 1f0c296 · 1f0c296
1 parent 11244c5
commit 1f0c296
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/stat-function.R b/R/stat-function.R
@@ -50,7 +50,7 @@ stat_function <- function(mapping = NULL, data = NULL,
 #' @usage NULL
 #' @export
 StatFunction <- ggproto("StatFunction", Stat,
-  default_aes = aes(y = after_scale(y)),
+  default_aes = aes(x = NULL, y = after_scale(y)),
 
   compute_group = function(data, scales, fun, xlim = NULL, n = 101, args = list()) {
     if (is.null(scales$x)) {