Remove y-axis line from density, histogram, and dot plots

NEWS.md

@@ -1,5 +1,6 @@
 # bayesplot (development version)
 
+* Remove y-axis line from density, histogram, dot, and frequency polygon plots where the y-axis has no meaningful scale (#418)
 * Documentation added for all exported `*_data()` functions (#209)
 * Improved documentation for `binwidth`, `bins`, and `breaks` arguments to clarify they are passed to `ggplot2::geom_area()` and `ggdist::stat_dots()` in addition to `ggplot2::geom_histogram()`
 * Improved documentation for `freq` argument to clarify it applies to frequency polygons in addition to histograms

R/mcmc-diagnostics-nuts.R

@@ -188,6 +188,7 @@ mcmc_nuts_acceptance <-
       yaxis_text(FALSE) +
       yaxis_title(FALSE) +
       yaxis_ticks(FALSE) +
+      theme(axis.line.y = element_blank()) +
       xaxis_title(FALSE)
 
     scatter_data <- data.frame(
@@ -366,7 +367,8 @@ mcmc_nuts_treedepth <- function(x, lp, chain = NULL, ...) {
     bayesplot_theme_get() +
     yaxis_text(FALSE) +
     yaxis_title(FALSE) +
-    yaxis_ticks(FALSE)
+    yaxis_ticks(FALSE) +
+    theme(axis.line.y = element_blank())
 
   violin_lp_data <- data.frame(treedepth, lp = lp$Value)
 
@@ -491,15 +493,16 @@ mcmc_nuts_energy <-
       theme(legend.text = element_text(size = rel(1.1))) +
       yaxis_text(FALSE) +
       yaxis_title(FALSE) +
-      yaxis_ticks(FALSE)
+      yaxis_ticks(FALSE) +
+      theme(axis.line.y = element_blank())
 
     if (merge_chains) {
       return(graph)
     }
 
     graph +
       facet_wrap(vars(.data$Chain)) +
-      force_axes_in_facets()
+      force_x_axis_in_facets()
   }
 
 

R/mcmc-distributions.R

@@ -515,7 +515,7 @@ mcmc_dots_by_chain <- function(
     }
     graph <- graph +
       do.call("facet_grid", facet_args) +
-      force_axes_in_facets()
+      force_x_axis_in_facets()
   }
 
   if (n_param == 1) {
@@ -528,6 +528,7 @@ mcmc_dots_by_chain <- function(
     yaxis_text(FALSE) +
     yaxis_title(FALSE) +
     yaxis_ticks(FALSE) +
+    theme(axis.line.y = element_blank()) +
     xaxis_title(on = n_param == 1)
 }
 
@@ -644,9 +645,10 @@ mcmc_dots_by_chain <- function(
   graph +
     dont_expand_y_axis(c(0.005, 0)) +
     bayesplot_theme_get() +
-    yaxis_text(FALSE) +
-    yaxis_ticks(FALSE) +
+    yaxis_text(on = violin) +
+    yaxis_ticks(on = violin) +
     yaxis_title(on = n_param == 1 && violin) +
+    (if (!violin) theme(axis.line.y = element_blank()) else geom_ignore()) +
     xaxis_title(on = n_param == 1)
 }
 

R/ppc-distributions.R

@@ -211,7 +211,8 @@ ppc_dens_overlay <-
       yaxis_title(FALSE) +
       xaxis_title(FALSE) +
       yaxis_text(FALSE) +
-      yaxis_ticks(FALSE)
+      yaxis_ticks(FALSE) +
+      theme(axis.line.y = element_blank())
   }
 
 
@@ -253,7 +254,7 @@ ppc_dens_overlay_grouped <- function(y,
 
   p_overlay +
     facet_wrap("group") +
-    force_axes_in_facets()
+    force_x_axis_in_facets()
 }
 
 #' @export
@@ -370,12 +371,13 @@ ppc_dens <-
       scale_color_ppc() +
       bayesplot_theme_get() +
       facet_wrap_parsed("rep_label") +
-      force_axes_in_facets() +
+      force_x_axis_in_facets() +
       dont_expand_y_axis() +
       space_legend_keys() +
       yaxis_text(FALSE) +
       yaxis_title(FALSE) +
       yaxis_ticks(FALSE) +
+      theme(axis.line.y = element_blank()) +
       xaxis_title(FALSE) +
       facet_text(FALSE) +
       facet_bg(FALSE)
@@ -409,13 +411,14 @@ ppc_hist <-
       scale_fill_ppc() +
       scale_color_ppc() +
       facet_wrap_parsed("rep_label") +
-      force_axes_in_facets() +
+      force_x_axis_in_facets() +
       dont_expand_y_axis() +
       bayesplot_theme_get() +
       space_legend_keys() +
       yaxis_text(FALSE) +
       yaxis_title(FALSE) +
       yaxis_ticks(FALSE) +
+      theme(axis.line.y = element_blank()) +
       xaxis_title(FALSE) +
       facet_text(FALSE) +
       facet_bg(FALSE)
@@ -456,12 +459,13 @@ ppc_freqpoly <-
       scale_color_ppc() +
       facet_wrap_parsed("rep_label") +
       bayesplot_theme_get() +
-      force_axes_in_facets() +
+      force_x_axis_in_facets() +
       dont_expand_y_axis() +
       space_legend_keys() +
       yaxis_text(FALSE) +
       yaxis_title(FALSE) +
       yaxis_ticks(FALSE) +
+      theme(axis.line.y = element_blank()) +
       xaxis_title(FALSE) +
       facet_text(FALSE)
   }
@@ -488,7 +492,7 @@ ppc_freqpoly_grouped <-
         scales = "free",
         labeller = label_parsed
       ) +
-      force_axes_in_facets() +
+      force_x_axis_in_facets() +
       facet_text() +
       theme(strip.text.y = element_blank())
   }
@@ -562,12 +566,13 @@ ppc_dots <-
       scale_fill_ppc() +
       scale_color_ppc() +
       facet_wrap_parsed("rep_label") +
-      force_axes_in_facets() +
+      force_x_axis_in_facets() +
       bayesplot_theme_get() +
       space_legend_keys() +
       yaxis_text(FALSE) +
       yaxis_title(FALSE) +
       yaxis_ticks(FALSE) +
+      theme(axis.line.y = element_blank()) +
       xaxis_title(FALSE) +
       facet_text(FALSE) +
       facet_bg(FALSE)

R/ppd-distributions.R

@@ -74,6 +74,7 @@ ppd_dens_overlay <-
       xaxis_title(FALSE) +
       yaxis_text(FALSE) +
       yaxis_ticks(FALSE) +
+      theme(axis.line.y = element_blank()) +
       legend_none()
   }
 
@@ -145,12 +146,13 @@ ppd_dens <-
       scale_fill_ppd() +
       bayesplot_theme_get() +
       facet_wrap_parsed("rep_label") +
-      force_axes_in_facets() +
+      force_x_axis_in_facets() +
       dont_expand_y_axis() +
       legend_none() +
       yaxis_text(FALSE) +
       yaxis_title(FALSE) +
       yaxis_ticks(FALSE) +
+      theme(axis.line.y = element_blank()) +
       xaxis_title(FALSE) +
       facet_text(FALSE)
   }
@@ -183,12 +185,13 @@ ppd_hist <-
       scale_fill_ppd() +
       bayesplot_theme_get() +
       facet_wrap_parsed("rep_label") +
-      force_axes_in_facets() +
+      force_x_axis_in_facets() +
       dont_expand_y_axis() +
       legend_none() +
       yaxis_text(FALSE) +
       yaxis_title(FALSE) +
       yaxis_ticks(FALSE) +
+      theme(axis.line.y = element_blank()) +
       xaxis_title(FALSE) +
       facet_text(FALSE)
   }
@@ -220,12 +223,13 @@ ppd_dots <-
       scale_fill_ppd() +
       bayesplot_theme_get() +
       facet_wrap_parsed("rep_label") +
-      force_axes_in_facets() +
+      force_x_axis_in_facets() +
       dont_expand_y_axis() +
       legend_none() +
       yaxis_text(FALSE) +
       yaxis_title(FALSE) +
       yaxis_ticks(FALSE) +
+      theme(axis.line.y = element_blank()) +
       xaxis_title(FALSE) +
       facet_text(FALSE)
   }
@@ -265,11 +269,12 @@ ppd_freqpoly <-
       scale_color_ppd() +
       scale_fill_ppd() +
       bayesplot_theme_get() +
-      force_axes_in_facets() +
+      force_x_axis_in_facets() +
       dont_expand_y_axis() +
       yaxis_text(FALSE) +
       yaxis_title(FALSE) +
       yaxis_ticks(FALSE) +
+      theme(axis.line.y = element_blank()) +
       xaxis_title(FALSE) +
       facet_text(FALSE) +
       legend_none()
@@ -297,7 +302,7 @@ ppd_freqpoly_grouped <-
         scales = "free",
         labeller = label_parsed
       ) +
-      force_axes_in_facets() +
+      force_x_axis_in_facets() +
       facet_text() +
       theme(strip.text.y = element_blank())
   }