diff --git a/R/hbar.R b/R/hbar.R
new file mode 100644
index 0000000..ef2e453
--- /dev/null
+++ b/R/hbar.R
@@ -0,0 +1,136 @@
+#' @title Simple horizontal bar chart
+#'
+#' @description with nice percentage x labels
+#'
+#' @param .tbl Some data
+#' @param x Some numeric column on the x scale
+#' @param y Some column on the y scale
+#' @param group Some grouping categorical column, e.g. administrative areas
+#' @param initiative Either "reach" or "agora" or "impact" for the color palette
+#' @param x_title The x scale title. Default to empty string
+#' @param y_title The y scale title. Default to empty string
+#' @param group_title The group legend title. Defaut to NULL
+#' @param font_family The font family. Default to "Leelawadee"
+#' @param stack Should the chart be stacked? Default to "FALSE" (dodge)
+#' @param reverse Boolean indicating whether the palette should be reversed
+#' @param ... Other arguments to be passed to "simplevis::gg_hbar" or "simplevis:gg_hbar_col"
+#'
+#' @return A horizontal bar chart
+#'
+#' @export
+hbar_percent <- function(.tbl, x, y, group = NULL, initiative = "reach", x_title = "", y_title = "", group_title = NULL, font_family = "Leelawadee",  stack = FALSE, ...){
+
+
+  if_vec_not_in_stop(initiative, c("reach", "agora", "impact"), "initiative")
+
+  if (initiative == "reach") main_col <- cols_reach("main_grey")
+
+  if (initiative == "agora") main_col <- cols_agora("main_bordeaux")
+
+  if (initiative == "impact") rlang::abort("IMPACT colors are under development")
+
+  if (is.null(group)) {
+     hbar <- data |>
+       simplevis::gg_hbar(
+         x_var = {{ x }},
+         y_var = {{ y }},
+         title = title,
+         theme = gg_theme(font = font, pal_title =  main_col),
+         x_title = x_title,
+         y_title = y_title,
+         alpha_fill = 1,
+         pal = main_col,
+         x_labels = scales::percent,
+         stack = stack,
+         ...)
+  } else {
+    group_name <- rlang::as_name(rlang::enquo(group))
+    if_not_in_stop(.tbl, group_name)
+
+    hbar <- data |>
+      simplevis::gg_hbar_col(
+        x_var = {{ x }},
+        y_var = {{ y }},
+        col_var = {{ group }},
+        title = title,
+        theme = gg_theme(font = font, pal_title =  main_col),
+        x_title = x_title,
+        y_title = y_title,
+        col_title = col_title,
+        alpha_fill = 1,
+        pal = main_col,
+        x_labels = scales::percent,
+        stack = stack,
+        ...)
+  }
+
+  return(hbar)
+}
+
+#' @title Simple horizontal bar chart
+#'
+#' @description without any change to the x scale
+#'
+#' @param .tbl Some data
+#' @param x Some numeric column on the x scale
+#' @param y Some column on the y scale
+#' @param group Some grouping categorical column, e.g. administrative areas
+#' @param initiative Either "reach" or "agora" or "impact" for the color palette
+#' @param x_title The x scale title. Default to empty string
+#' @param y_title The y scale title. Default to empty string
+#' @param group_title The group legend title. Defaut to NULL
+#' @param font_family The font family. Default to "Leelawadee"
+#' @param stack Should the chart be stacked? Default to "FALSE" (dodge)
+#' @param reverse Boolean indicating whether the palette should be reversed
+#' @param ... Other arguments to be passed to "simplevis::gg_hbar" or "simplevis:gg_hbar_col"
+#'
+#' @return A horizontal bar chart
+#'
+#' @export
+hbar <- function(.tbl, x, y, group = NULL, initiative = "reach", x_title = "", y_title = "", group_title = NULL, font_family = "Leelawadee",  stack = FALSE, ...){
+
+
+  if_vec_not_in_stop(initiative, c("reach", "agora", "impact"), "initiative")
+
+  if (initiative == "reach") main_col <- cols_reach("main_grey")
+
+  if (initiative == "agora") main_col <- cols_agora("main_bordeaux")
+
+  if (initiative == "impact") rlang::abort("IMPACT colors are under development")
+
+  if (is.null(group)) {
+    hbar <- data |>
+      simplevis::gg_hbar(
+        x_var = {{ x }},
+        y_var = {{ y }},
+        title = title,
+        theme = gg_theme(font = font, pal_title =  main_col),
+        x_title = x_title,
+        y_title = y_title,
+        alpha_fill = 1,
+        pal = main_col,
+        stack = stack,
+        ...)
+  } else {
+    group_name <- rlang::as_name(rlang::enquo(group))
+    if_not_in_stop(.tbl, group_name)
+
+    hbar <- data |>
+      simplevis::gg_hbar_col(
+        x_var = {{ x }},
+        y_var = {{ y }},
+        col_var = {{ group }},
+        title = title,
+        theme = gg_theme(font = font, pal_title =  main_col),
+        x_title = x_title,
+        y_title = y_title,
+        col_title = col_title,
+        alpha_fill = 1,
+        pal = main_col,
+        stack = stack,
+        ...)
+  }
+
+  return(hbar)
+}
+