From 5679b7cdbaf5a282ccdbcaeab6e897d2bb306003 Mon Sep 17 00:00:00 2001
From: pvictor <perrier.victor@gmail.com>
Date: Wed, 6 Jan 2021 09:52:25 +0100
Subject: [PATCH] facets: better range fixed x axis

---
 R/facets.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/facets.R b/R/facets.R
index 5729973..7198f39 100644
--- a/R/facets.R
+++ b/R/facets.R
@@ -47,7 +47,7 @@ set_scale <- function(ax, values, scales = c("fixed", "free", "free_y", "free_x"
   if (is.null(values))
     return(ax)
   if (inherits(values, c("numeric", "integer", "Date", "POSIXt"))) {
-    range_vals <- range(pretty(values), na.rm = TRUE)
+    range_vals <- range(pretty(values, n = 10), na.rm = TRUE)
   } else {
     range_vals <- NULL
   }