Fixed a bug when combining counts with axis limits (#41).

NEWS.md

@@ -3,6 +3,7 @@
 * New color scheme `colors_discrete_rainbow` (@electrolars, #35).
 * The function `save_plot()` gains the new argument `view_plot` 
 to control whether to view the plot on screen after saving (#40).
+* Fixed a bug when combining counts with axis limits (#41).
 
 # tidyplots 0.2.0
 

R/adjust.R

@@ -89,11 +89,10 @@ ff_adjust_axis <- function(axis) {
       }
     })
 
-    # Set limits
-    if (!is.null(plot$tidyplot$limits_x) && is_continuous(plot, "x")) xlim <- plot$tidyplot$limits_x else xlim <- NULL
-    if (!is.null(plot$tidyplot$limits_y) && is_continuous(plot, "y")) ylim <- plot$tidyplot$limits_y else ylim <- NULL
-    if (!is.null(xlim) || !is.null(ylim))
-      suppressMessages(plot <- plot + ggplot2::coord_cartesian(xlim = xlim, ylim = ylim))
+    # Set limits via coord_cartesian
+    if (!is.null(plot$tidyplot$limits_x) || !is.null(plot$tidyplot$limits_y)) {
+      suppressMessages(plot <- plot + ggplot2::coord_cartesian(xlim = plot$tidyplot$limits_x, ylim = plot$tidyplot$limits_y))
+    }
     return(plot)
   }