diff --git a/R/theme_reach.R b/R/theme_reach.R
index ee87ca4..93f2278 100644
--- a/R/theme_reach.R
+++ b/R/theme_reach.R
@@ -1,92 +1,126 @@
-#' @title Base REACH ggplot2 theme
-#'
-#' @param family The font family. Default to "Leelawadee"
-#'
-#' @description Give some reach colors and fonts to a ggplot. Based on theme_bw()
-#'
-#' @return The base REACH theme
-#'
-#' @export
-theme_reach <- function(family = "Leelawadee") {
-
-  rlang::check_installed("ggplot2", reason = "Package \"ggplot2\" needed for `theme_reach_*()` to work. Please install it.")
-
-  ggplot2::theme_bw() +
-    ggplot2::theme(
-      title = ggplot2::element_text(family = family,
-                                    size = 12,
-                                    colour = "#58585A",
-                                    hjust = 0.5,
-                                    vjust = 0.5),
-      text = ggplot2::element_text(family = family,
-                                   colour = "#58585A"),
-      axis.title = ggplot2::element_text(size = 11),
-      axis.text = ggplot2::element_text(size = 10),
-      legend.text = ggplot2::element_text(size = 11),
-      strip.text = ggplot2::element_text(size = 11),
-      legend.title = ggplot2::element_text(size = 11)
-    )
-}
-
-
-
-#' @title Some REACH theme for ggplot
-#'
-#' @param family The font family. Default to "Leelawadee"
-#'
-#' @return A theme to be added to the "+" ggplot grammar
-#'
-#' @export
-theme_reach_borders <- function(family = "Leelawadee") {
-
-  theme_reach() +
-    ggplot2::theme(
-      panel.background = ggplot2::element_rect(colour = "white", fill = "white", size = 0.5),
-      strip.background = ggplot2::element_rect(linetype = "solid", colour = "#58585A", fill = "white")
-    )
-}
-
-
-
-#' @title Some reach more minimal theme for a ggplot histogram
-#'
-#' @param family The font family. Default to "Leelawadee"
-#'
-#' @description Give some REACH colors and fonts to a ggplot. Based on theme_bw(). To be used for vertical bar charts.
-#'
-#' @return A theme to be added to the "+" ggplot grammar
-#'
-#' @export
-theme_reach_hist <- function(family = "Leelawadee") {
-
-  theme_reach() +
-    ggplot2::theme(
-      panel.background = ggplot2::element_blank(),
-      strip.background = ggplot2::element_blank(),
-      panel.border = ggplot2::element_blank()
-    )
-}
-
-
-#' @title Some reach more minimal theme for a ggplot flipped histogram
-#'
-#' @param family The font family. Default to "Leelawadee"
-#'
-#' @description Give some REACH colors and fonts to a ggplot. Based on theme_bw(). To be used for horizontal bar charts.
-#'
-#' @return A theme to be added to the "+" ggplot grammar
-#'
-#' @export
-theme_reach_flip_hist <- function(family = "Leelawadee") {
-
-  theme_reach() +
-    ggplot2::theme(
-      panel.background = ggplot2::element_blank(),
-      strip.background = ggplot2::element_blank(),
-      panel.border = ggplot2::element_blank(),
-      axis.ticks.y = ggplot2::element_blank()
-    )
-}
-
-
-
+#' @title ggplot2 theme with REACH color palettes
+#'
+#' @param palette Palette name from 'pal_reach()'.
+#' @param discrete 	Boolean indicating whether color aesthetic is discrete or not
+#' @param reverse Boolean indicating whether the palette should be reversed
+#' @param family The font family for all plot's texts. Default to "Leelawadee".
+#' @param text_size The size of all text other than the title, subtitle and caption. Defaults to 10.
+#' @param title_size The size of the title text_family. Defaults to 14.
+#' @param plot_background_pal The color for the plot background color. Default to white.
+#' @param panel_background_pal The color for the panel background color. Default to white.
+#' @param legend_position Position of the legend; Default to "right". Can take "right", "left", "top", "bottom" or "none".
+#' @param legend_direction Direction of the legend. Default to "vertical". Can take "vertical" or "horizontal".
+#' @param void Boolean to remove all elements from the plot. Default to FALSE.
+#' @param ...	Additional arguments passed to `ggblanket::gg_theme()`.
+#'
+#'
+#' @description Give some reach colors and fonts to a ggplot.
+#'
+#' @return The base REACH theme
+#'
+#' @export
+theme_reach <- function(
+    palette = "main",
+    discrete = TRUE,
+    reverse = FALSE,
+    family = "Leelawadee",
+    text_size = 10,
+    title_size = 14,
+    plot_background_pal = "#FFFFFF",
+    panel_background_pal = "#FFFFFF",
+    void = FALSE,
+    legend_position = "right",
+    legend_direction = "vertical",
+    ...
+    ) {
+
+  # Basic simple theme
+  theme_reach <- ggblanket::gg_theme(
+    text_family = family,
+    text_size = text_size,
+    title_size = title_size,
+    plot_background_pal = plot_background_pal,
+    panel_background_pal = panel_background_pal,
+    void = void
+  )
+
+
+  # Default legend to right position
+  theme_reach <- theme_reach +
+  ggplot2::theme(legend.position = legend_position)
+
+  # Defaut legend to vertical direction
+  theme_reach <- theme_reach +
+  ggplot2::theme(legend.direction = legend_direction)
+
+  # Add reach color palettes by default
+  theme_reach <- list(
+    theme_reach,
+    scale_color(palette = palette, discrete = discrete, reverse = reverse),
+    scale_fill(palette = palette, discrete = discrete, reverse = reverse)
+    )
+
+
+  return(theme_reach)
+
+}
+
+#' @title Some REACH theme for ggplot
+#'
+#' @param family The font family. Default to "Leelawadee"
+#'
+#' @return A theme to be added to the "+" ggplot grammar
+#'
+#' @export
+theme_reach_borders <- function(family = "Leelawadee") {
+
+  theme_reach() +
+    ggplot2::theme(
+      panel.background = ggplot2::element_rect(colour = "white", fill = "white", size = 0.5),
+      strip.background = ggplot2::element_rect(linetype = "solid", colour = "#58585A", fill = "white")
+    )
+}
+
+
+
+#' @title Some reach more minimal theme for a ggplot histogram
+#' @param family The font family. Default to "Leelawadee"
+#'
+#' @description Give some REACH colors and fonts to a ggplot. Based on theme_bw(). To be used for vertical bar charts.
+#'
+#' @return A theme to be added to the "+" ggplot grammar
+#'
+#' @export
+theme_reach_hist <- function(family = "Leelawadee") {
+
+  theme_reach() +
+    ggplot2::theme(
+      panel.background = ggplot2::element_blank(),
+      strip.background = ggplot2::element_blank(),
+      panel.border = ggplot2::element_blank()
+    )
+}
+
+
+#' @title Some reach more minimal theme for a ggplot flipped histogram
+#'
+#' @param family The font family. Default to "Leelawadee"
+#'
+#' @description Give some REACH colors and fonts to a ggplot. Based on theme_bw(). To be used for horizontal bar charts.
+#'
+#' @return A theme to be added to the "+" ggplot grammar
+#'
+#' @export
+theme_reach_flip_hist <- function(family = "Leelawadee") {
+
+  theme_reach() +
+    ggplot2::theme(
+      panel.background = ggplot2::element_blank(),
+      strip.background = ggplot2::element_blank(),
+      panel.border = ggplot2::element_blank(),
+      axis.ticks.y = ggplot2::element_blank()
+    )
+}
+
+
+