diff --git a/R/stat-ydensity.R b/R/stat-ydensity.R index 9cfca40e8b..a090898dea 100644 --- 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))