Merge pull request #342 from stan-dev/ppc_bars_missing_counts

Fix missing counts in ppc_bars_data()

Author: jgabry

DESCRIPTION

@@ -37,6 +37,7 @@ Imports:
     rlang (>= 0.3.0),
     stats,
     tibble (>= 2.0.0),
+    tidyr,
     tidyselect,
     utils
 Suggests:

NEWS.md

@@ -9,6 +9,7 @@
 * Skip tests depending on Suggested dependency gridExtra if not installed by @MichaelChirico (#326) 
 * Skip tests depending on Suggested dependency rstantools if not installed by @MichaelChirico (#325)
 * Update GitHub actions workflows (#338)
+* Fix missing counts in `ppc_bars_data()` by @TeemuSailynoja, thanks @famuvie (#342)
 
 
 # bayesplot 1.11.1

R/ppc-discrete.R

@@ -395,6 +395,7 @@ ppc_bars_data <-
   data <-
     reshape2::melt(tmp_data, id.vars = "group") %>%
     count(.data$group, .data$value, .data$variable) %>%
+    tidyr::complete(.data$group, .data$value, .data$variable, fill = list(n = 0)) %>% 
     group_by(.data$variable, .data$group) %>%
     mutate(proportion = .data$n / sum(.data$n)) %>%
     ungroup() %>%