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, violin, and frequency polygon plots where the y-axis has no meaningful scale
 * 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)
 

R/mcmc-distributions.R

@@ -522,6 +522,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)
 }
 
@@ -641,6 +642,7 @@ mcmc_dots_by_chain <- function(
     yaxis_text(FALSE) +
     yaxis_ticks(FALSE) +
     yaxis_title(on = n_param == 1 && violin) +
+    theme(axis.line.y = element_blank()) +
     xaxis_title(on = n_param == 1)
 }
 

R/ppc-distributions.R

@@ -202,7 +202,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())
   }
 
 
@@ -367,6 +368,7 @@ ppc_dens <-
       yaxis_text(FALSE) +
       yaxis_title(FALSE) +
       yaxis_ticks(FALSE) +
+      theme(axis.line.y = element_blank()) +
       xaxis_title(FALSE) +
       facet_text(FALSE) +
       facet_bg(FALSE)
@@ -407,6 +409,7 @@ ppc_hist <-
       yaxis_text(FALSE) +
       yaxis_title(FALSE) +
       yaxis_ticks(FALSE) +
+      theme(axis.line.y = element_blank()) +
       xaxis_title(FALSE) +
       facet_text(FALSE) +
       facet_bg(FALSE)
@@ -453,6 +456,7 @@ ppc_freqpoly <-
       yaxis_text(FALSE) +
       yaxis_title(FALSE) +
       yaxis_ticks(FALSE) +
+      theme(axis.line.y = element_blank()) +
       xaxis_title(FALSE) +
       facet_text(FALSE)
   }
@@ -559,6 +563,7 @@ ppc_dots <-
       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()
   }
 
@@ -151,6 +152,7 @@ ppd_dens <-
       yaxis_text(FALSE) +
       yaxis_title(FALSE) +
       yaxis_ticks(FALSE) +
+      theme(axis.line.y = element_blank()) +
       xaxis_title(FALSE) +
       facet_text(FALSE)
   }
@@ -189,6 +191,7 @@ ppd_hist <-
       yaxis_text(FALSE) +
       yaxis_title(FALSE) +
       yaxis_ticks(FALSE) +
+      theme(axis.line.y = element_blank()) +
       xaxis_title(FALSE) +
       facet_text(FALSE)
   }
@@ -226,6 +229,7 @@ ppd_dots <-
       yaxis_text(FALSE) +
       yaxis_title(FALSE) +
       yaxis_ticks(FALSE) +
+      theme(axis.line.y = element_blank()) +
       xaxis_title(FALSE) +
       facet_text(FALSE)
   }
@@ -270,6 +274,7 @@ ppd_freqpoly <-
       yaxis_text(FALSE) +
       yaxis_title(FALSE) +
       yaxis_ticks(FALSE) +
+      theme(axis.line.y = element_blank()) +
       xaxis_title(FALSE) +
       facet_text(FALSE) +
       legend_none()