Replace geom_density_ridges(stat=identity) with geom_ridgeline().

Author: utkarshpawade

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

@@ -510,14 +510,13 @@ mcmc_areas_ridges <- function(x,
   args_outer <- list(
     mapping = aes(height = .data$density),
     color = get_color("dark"),
-    fill = NA,
-    stat = "identity"
+    fill = NA
   )
   if (!is.null(border_size)) {
     args_outer$linewidth <- border_size
   }
 
-  layer_outer <- do.call(ggridges::geom_density_ridges, args_outer)
+  layer_outer <- do.call(ggridges::geom_ridgeline, args_outer)
 
   # Force ggridges to compute the scaling now
   test_plot <- ggplot(datas$outer) +
@@ -551,8 +550,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