fix: respect width aesthetic (#6576)

* fix: respect `width` aesthetic

* Apply suggestion from @teunbrand

Co-authored-by: Teun van den Brand <49372158+teunbrand@users.noreply.github.com>

* feat(StatBoxplot): support width as an optional aesthetic

* add news bullet

---------

Co-authored-by: Teun van den Brand <49372158+teunbrand@users.noreply.github.com>
Co-authored-by: Teun van den Brand <tahvdbrand@gmail.com>

Author: Yunuuuu

NEWS.md

@@ -9,6 +9,7 @@
 
 
 * Allow `stat` in `geom_hline`, `geom_vline`, and `geom_abline`. (@sierrajohnson, #6559)
+* `stat_boxplot()` treats `width` as an optional aesthetic (@Yunuuuu, #6575)
 
 # ggplot2 4.0.0
 

R/stat-boxplot.R

@@ -5,6 +5,7 @@
 StatBoxplot <- ggproto("StatBoxplot", Stat,
   required_aes = c("y|x"),
   non_missing_aes = "weight",
+  optional_aes = "width",
   # either the x or y aesthetic will get dropped during
   # statistical transformation, depending on the orientation
   dropped_aes = c("x", "y", "weight"),
@@ -69,9 +70,11 @@ StatBoxplot <- ggproto("StatBoxplot", Stat,
     if (any(outliers)) {
       stats[c(1, 5)] <- range(c(stats[2:4], data$y[!outliers]), na.rm = TRUE)
     }
-
-    if (vec_unique_count(data$x) > 1)
+    if (length(data$width) > 0L) {
+      width <- data$width[1L]
+    } else if (vec_unique_count(data$x) > 1) {
       width <- diff(range(data$x)) * 0.9
+    }
 
     df <- data_frame0(!!!as.list(stats))
     df$outliers <- list(data$y[outliers])