dodge by max number of groups per panel/position

Author: teunbrand

R/position-jitterdodge.R

@@ -47,17 +47,9 @@ PositionJitterdodge <- ggproto("PositionJitterdodge", Position,
     flipped_aes <- has_flipped_aes(data)
     data <- flip_data(data, flipped_aes)
     width <- self$jitter.width %||% (resolution(data$x, zero = FALSE, TRUE) * 0.4)
-    # Adjust the x transformation based on the number of 'dodge' variables
-    possible_dodge <- c("fill", "colour", "linetype", "shape", "size", "alpha")
-    dodgecols <- intersect(possible_dodge, colnames(data))
-    if (length(dodgecols) == 0) {
-      cli::cli_abort(c(
-        "{.fn position_jitterdodge} requires at least one aesthetic to dodge by.",
-        i = "Use one of {.or {.val {possible_dodge}}} aesthetics."
-        ))
-    }
-    ndodge    <- lapply(data[dodgecols], levels)  # returns NULL for numeric, i.e. non-dodge layers
-    ndodge    <- vec_unique_count(unlist(ndodge))
+
+    ndodge <- split(data$group, list(data$PANEL, data$x))
+    ndodge <- max(vapply(ndodge, vec_unique_count, integer(1)))
 
     list(
       dodge.width = self$dodge.width,