fix x axis position issue on cumulated bar charts

RinteRface · Oct 19, 2023 · 1f05b4b · 1f05b4b
1 parent a79f1d1
commit 1f05b4b
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/R/helpers-charts.R b/R/helpers-charts.R
@@ -139,7 +139,8 @@ create_cumulated_duration_per_user <- function(
       e_bar(cum_duration) %>%
       e_flip_coords() %>%
       e_axis_labels(x = "Duration (hours)", y = "End user") %>%
-      e_tooltip()
+      e_tooltip() %>%
+      e_x_axis(nameLocation = "center", nameTextStyle = list(padding = 10))
   })
 }
 
@@ -193,7 +194,8 @@ create_cumulated_hits_per_user <- function(
       e_bar(n) %>%
       e_flip_coords() %>%
       e_axis_labels(x = "Number of hits (app visit)", y = "End user") %>%
-      e_tooltip()
+      e_tooltip() %>%
+      e_x_axis(nameLocation = "center", nameTextStyle = list(padding = 10))
   })
 }
 
@@ -327,6 +329,7 @@ create_apps_consumer_ranking_chart <- function(ranking, threshold) {
       e_flip_coords() %>%
       e_axis_labels(x = "Number of hits", y = "End user") %>%
       e_tooltip() %>%
+      e_x_axis(nameLocation = "center", nameTextStyle = list(padding = 10)) %>%
       e_legend(FALSE)
   })
 }