Remove x axis for donut() default theme

This commit is contained in:
gnoblet 2023-07-03 14:38:49 +02:00
parent 515a94fbb5
commit 4fb4ab2b5d
2 changed files with 3 additions and 2 deletions

View file

@ -30,7 +30,7 @@ donut <- function(df,
arrange = TRUE, arrange = TRUE,
hole_size = 3, hole_size = 3,
add_text = TRUE, 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 ? # Arrange by biggest prop first ?
if (arrange) df <- dplyr::arrange( if (arrange) df <- dplyr::arrange(

View file

@ -168,7 +168,8 @@ donut(df,
add_text_treshold_display = 5, add_text_treshold_display = 5,
x_title = "Displacement status", x_title = "Displacement status",
title = "% of HHs by displacement status", title = "% of HHs by displacement status",
theme = theme_reach(legend_reverse = TRUE)) theme = theme_reach(legend_reverse = TRUE,
axis_x = FALSE))
``` ```