stat_bin_2d(boundary) internally defaults to 0

Author: teunbrand

R/stat-bin2d.R

@@ -16,7 +16,6 @@ stat_bin_2d <- function(mapping = NULL, data = NULL,
                         ...,
                         bins = 30,
                         binwidth = NULL,
-                        boundary = 0,
                         drop = TRUE,
                         na.rm = FALSE,
                         show.legend = NA,
@@ -33,7 +32,6 @@ stat_bin_2d <- function(mapping = NULL, data = NULL,
       bins = bins,
       binwidth = binwidth,
       drop = drop,
-      boundary = boundary,
       na.rm = na.rm,
       ...
     )
@@ -58,11 +56,14 @@ StatBin2d <- ggproto(
 
   compute_group = function(data, scales, binwidth = NULL, bins = 30,
                            breaks = NULL, origin = NULL, drop = TRUE,
-                           boundary = 0, closed = NULL, center = NULL) {
+                           boundary = NULL, closed = NULL, center = NULL) {
 
     data$z <- data$weight %||% 1
     data$weight <- NULL
 
+    # For backward compatibility, boundary defaults to 0
+    boundary <- boundary %||% if (is.null(center)) list(x = 0, y = 0)
+
     out <- StatSummary2d$compute_group(
       data, scales, binwidth = binwidth, bins = bins, breaks = breaks,
       drop = drop, fun = "sum", boundary = boundary, closed = closed,

R/stat-summary-2d.R

@@ -100,7 +100,7 @@ StatSummary2d <- ggproto("StatSummary2d", Stat,
 
     params <- fix_bin_params(params, fun = snake_class(self), version = "3.5.2")
     vars <- c("origin", "binwidth", "breaks", "center", "boundary")
-    params[vars] <- lapply(params[vars], dual_param)
+    params[vars] <- lapply(params[vars], dual_param, default = NULL)
     params$closed <- dual_param(params$closed, list(x = "right", y = "right"))
 
     params