Silence additional weight warnings (#5267)

* Expose `geom_dotplot()`'s 'weight' aesthetic

* `stat_ydensity()` drops weight

Author: teunbrand

R/geom-dotplot.R

@@ -188,7 +188,8 @@ GeomDotplot <- ggproto("GeomDotplot", Geom,
   required_aes = c("x", "y"),
   non_missing_aes = c("size", "shape"),
 
-  default_aes = aes(colour = "black", fill = "black", alpha = NA, stroke = 1, linetype = "solid"),
+  default_aes = aes(colour = "black", fill = "black", alpha = NA,
+                    stroke = 1, linetype = "solid", weight = 1),
 
   setup_data = function(data, params) {
     data$width <- data$width %||%

R/stat-bindot.R

@@ -124,7 +124,9 @@ StatBindot <- ggproto("StatBindot", Stat,
       data$x <- midline
     }
     return(data)
-  }
+  },
+
+  dropped_aes = "weight"
 )
 
 

R/stat-ydensity.R

@@ -138,8 +138,9 @@ StatYdensity <- ggproto("StatYdensity", Stat,
     )
     data$flipped_aes <- flipped_aes
     flip_data(data, flipped_aes)
-  }
+  },
 
+  dropped_aes = "weight"
 )
 
 calc_bw <- function(x, bw) {