Remove redundant stat = "identity" from geom_ridgeline() and replace geom_density_ridges(stat = "identity") with geom_ridgeline() in mcmc-distributions.R

NEWS.md

@@ -11,6 +11,7 @@
 * New functions `mcmc_dots` and `mcmc_dots_by_chain` for dot plots of MCMC draws by @behramulukir (#402)
 * Default to `quantiles=100` for all dot plots by @behramulukir (#402)
 * Use `"neff_ratio"` consistently in diagnostic color scale helpers to avoid relying on partial matching of `"neff"`.
+* Replace `geom_density_ridges(stat = "identity")` with `geom_ridgeline()` in `mcmc-intervals.R` and `mcmc-distributions.R` since density is pre-computed; also drop redundant `stat = "identity"` from `geom_ridgeline()` calls.
 
 # bayesplot 1.15.0
 

R/mcmc-distributions.R

@@ -323,9 +323,8 @@ mcmc_dens_chains <- function(
       group = interaction(.data$chain, .data$parameter)
     ) +
     geom_line(data = line_training) +
-    ggridges::geom_density_ridges(
+    ggridges::geom_ridgeline(
       aes(height = .data$density),
-      stat = "identity",
       fill = NA,
       show.legend = FALSE
     ) +

R/mcmc-intervals.R

@@ -551,8 +551,7 @@ mcmc_areas_ridges <- function(x,
     args_inner <- list(
         mapping = aes(height = .data$density, color = .data$color, fill = .data$fill),
         data = dplyr::bind_rows(this_par_data, next_par_data),
-        scale = scale,
-        stat = "identity")
+        scale = scale)
 
     if (!is.null(border_size)) {
       args_inner$linewidth <- border_size