From 4fb4ab2b5dea988c63760b22184118e1fb8a4c93 Mon Sep 17 00:00:00 2001
From: gnoblet <gnoblet@zaclys.net>
Date: Mon, 3 Jul 2023 14:38:49 +0200
Subject: [PATCH] Remove x axis for `donut()` default theme

---
 R/donut.R  | 2 +-
 README.Rmd | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/R/donut.R b/R/donut.R
index 0c1cd93..268010f 100644
--- a/R/donut.R
+++ b/R/donut.R
@@ -30,7 +30,7 @@ donut <- function(df,
                   arrange = TRUE,
                   hole_size = 3,
                   add_text = TRUE,
-                  add_text_treshold_display = 5, add_text_color = "white", add_text_suffix = "", theme = theme_reach(legend_reverse = TRUE)){
+                  add_text_treshold_display = 5, add_text_color = "white", add_text_suffix = "", theme = theme_reach(legend_reverse = TRUE, axis_x = FALSE)){
 
   # Arrange by biggest prop first ?
   if (arrange) df <- dplyr::arrange(
diff --git a/README.Rmd b/README.Rmd
index df843f4..110e5d8 100644
--- a/README.Rmd
+++ b/README.Rmd
@@ -168,7 +168,8 @@ donut(df,
       add_text_treshold_display = 5,
       x_title = "Displacement status", 
       title = "% of HHs by displacement status", 
-      theme = theme_reach(legend_reverse = TRUE))
+      theme = theme_reach(legend_reverse = TRUE,
+                          axis_x = FALSE))
 ```