diff --git a/R/theme_reach.R b/R/theme_reach.R
index 99036e9..a54eb8e 100644
--- a/R/theme_reach.R
+++ b/R/theme_reach.R
@@ -14,15 +14,24 @@
 #' @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 legend_reverse Reverse the color in the guide? Default to TRUE.
+#' @param title_size The size of the legend title. Defaults to 11.
+#' @param title_color Legend title color.
+#' @param title_font_face Legend title font face. Default to "plain". Font face ("plain", "italic", "bold", "bold.italic").
+#' @param title_position_to_plot TRUE or FALSE. Positioning to plot or to panel?
 #' @param axis_x Boolean. Do you need x-axis?
 #' @param axis_y Boolean. Do you need y-axis?
 #' @param axis_text_size Axis text size.
+#' @param axis_text_color Axis text color.
+#' @param axis_text_font_face Axis text font face. Default to "plain". Font face ("plain", "italic", "bold", "bold.italic").
 #' @param axis_title_size Axis title size.
+#' @param axis_text_color Axis title color.
+#' @param axis_text_font_face Axis title font face. Default to "plain". Font face ("plain", "italic", "bold", "bold.italic").
 #' @param grid_x Boolean. Do you need major grid lines for x-axis?
 #' @param grid_y Boolean. Do you need major grid lines for y-axis?
 #' @param grid_x_size X line size.
 #' @param grid_y_size Y line size.
 #' @param grid_color Grid lines color.
+#' @param caption_position_to_plot TRUE or FALSE. Positioning to plot or to panel?
 #' @param ...	Additional arguments passed to `ggplot2::gg_theme()`.
 #'
 #'
@@ -39,22 +48,31 @@ theme_reach <- function(
     title_size = 12,
     title_color = cols_reach("main_grey"),
     title_font_face = "bold",
+    title_position_to_plot = TRUE,
     text_size = 10,
     text_color = cols_reach("main_grey"),
-    text_font_face = "bold",
+    text_font_face = "plain",
     panel_background_color = "#FFFFFF",
     legend_position = "right",
     legend_direction = "vertical",
     legend_reverse = TRUE,
+    legend_title_size = 11,
+    legend_title_color = cols_reach("main_grey"),
+    legend_title_font_face = "plain",
     axis_x = TRUE,
     axis_y = TRUE,
     axis_text_size = 10,
+    axis_text_color = cols_reach("main_grey"),
+    axis_text_font_face = "plain",
     axis_title_size = 11,
+    axis_title_color = cols_reach("main_grey"),
+    axis_title_font_face = "bold",
     grid_x = FALSE,
     grid_y = FALSE,
     grid_color = cols_reach("main_lt_grey"),
     grid_x_size = 0.1,
     grid_y_size = 0.1,
+    caption_position_to_plot = TRUE,
     ...
     ) {
 
@@ -92,17 +110,41 @@ theme_reach <- function(
     panel.grid.minor.y = ggplot2::element_blank(),
     # Remove background for legend key
     legend.key = ggplot2::element_blank(),
-    plot.title.position = "plot",
-    plot.caption.position =  "plot",
     # Text sizes
-    axis.text = ggplot2::element_text(size = axis_text_size),
-    axis.title = ggplot2::element_text(size = axis_title_size),
+    axis.text = ggplot2::element_text(
+      size = axis_text_size,
+      family = font_family,
+      face = axis_text_font_face,
+      color = axis_text_color
+      ),
+    axis.title = ggplot2::element_text(
+      size = axis_title_size,
+      family = font_family,
+      face = axis_title_font_face,
+      color = axis_title_color),
     # Wrap title
     plot.title = ggtext::element_textbox_simple(),
     plot.subtitle = ggtext::element_textbox_simple(),
-    plot.caption = ggtext::element_textbox_simple()
+    plot.caption = ggtext::element_textbox_simple(),
+    legend.title = ggplot2::element_text(
+      size = legend_title_size,
+      face = legend_title_font_face,
+      family = font_family,
+      color = legend_title_color)
   )
 
+  # Position of title
+  if (title_position_to_plot) theme_reach <- theme_reach +
+    ggplot2::theme(
+      plot.title.position = "plot"
+    )
+
+  if (caption_position_to_plot) theme_reach <- theme_reach +
+      ggplot2::theme(
+        plot.caption.position = "plot"
+      )
+  # Position of caption
+
   # Axis lines ?
   if (axis_x & axis_y) {
     theme_reach <- theme_reach +