Remove x axis for donut() default theme
This commit is contained in:
parent
515a94fbb5
commit
4fb4ab2b5d
2 changed files with 3 additions and 2 deletions
|
|
@ -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(
|
||||
|
|
|
|||
|
|
@ -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))
|
||||
```
|
||||
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue