From 939562927c6adafa097a7e790e1cb71c10713d54 Mon Sep 17 00:00:00 2001
From: Teun van den Brand <49372158+teunbrand@users.noreply.github.com>
Date: Mon, 7 Aug 2023 20:48:42 +0200
Subject: [PATCH] Fix partial matching (#5378)

---
 R/stat-ydensity.R | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

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))