Fix partial matching (#5378)

tidyverse · Aug 7, 2023 · 9395629 · 9395629
1 parent df1b901
commit 9395629
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/R/stat-ydensity.R b/R/stat-ydensity.R
@@ -95,8 +95,11 @@ StatYdensity <- ggproto("StatYdensity", Stat,
  range <- range(data$y, na.rm = TRUE)
  modifier <- if (trim) 0 else 3
  bw <- calc_bw(data$y, bw)
- dens <- compute_density(data$y, data$w, from = range[1] - modifier*bw, to = range[2] + modifier*bw,
- bw = bw, adjust = adjust, kernel = kernel)
+ dens <- compute_density(
+ data$y, data[["weight"]],
+ from = range[1] - modifier * bw, to = range[2] + modifier * bw,
+ bw = bw, adjust = adjust, kernel = kernel
+ )
 
  dens$y <- dens$x
  dens$x <- mean(range(data$x))