gnoblet/visualizeR
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add further parameters for theming

Browse source 
Title position
Legend title and text size, color and font face
Axis title and text color and font face
Caption position
This commit is contained in:
gnoblet 2022-12-21 13:12:19 -05:00
parent 519c9c62a3
commit 652976724b
1 changed files with 48 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

54
R/theme_reach.R
View file

@ -14,15 +14,24 @@
#' @param legend_position Position of the legend; Default to "right". Can take "right", "left", "top", "bottom" or "none". #' @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_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 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_x Boolean. Do you need x-axis?
#' @param axis_y Boolean. Do you need y-axis? #' @param axis_y Boolean. Do you need y-axis?
#' @param axis_text_size Axis text size. #' @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_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_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_y Boolean. Do you need major grid lines for y-axis?
#' @param grid_x_size X line size. #' @param grid_x_size X line size.
#' @param grid_y_size Y line size. #' @param grid_y_size Y line size.
#' @param grid_color Grid lines color. #' @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()`. #' @param ... Additional arguments passed to `ggplot2::gg_theme()`.
#' #'
#' #'
@ -39,22 +48,31 @@ theme_reach <- function(
title_size = 12, title_size = 12,
title_color = cols_reach("main_grey"), title_color = cols_reach("main_grey"),
title_font_face = "bold", title_font_face = "bold",
title_position_to_plot = TRUE,
text_size = 10, text_size = 10,
text_color = cols_reach("main_grey"), text_color = cols_reach("main_grey"),
text_font_face = "bold", text_font_face = "plain",
panel_background_color = "#FFFFFF", panel_background_color = "#FFFFFF",
legend_position = "right", legend_position = "right",
legend_direction = "vertical", legend_direction = "vertical",
legend_reverse = TRUE, legend_reverse = TRUE,
legend_title_size = 11,
legend_title_color = cols_reach("main_grey"),
legend_title_font_face = "plain",
axis_x = TRUE, axis_x = TRUE,
axis_y = TRUE, axis_y = TRUE,
axis_text_size = 10, axis_text_size = 10,
axis_text_color = cols_reach("main_grey"),
axis_text_font_face = "plain",
axis_title_size = 11, axis_title_size = 11,
axis_title_color = cols_reach("main_grey"),
axis_title_font_face = "bold",
grid_x = FALSE, grid_x = FALSE,
grid_y = FALSE, grid_y = FALSE,
grid_color = cols_reach("main_lt_grey"), grid_color = cols_reach("main_lt_grey"),
grid_x_size = 0.1, grid_x_size = 0.1,
grid_y_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(), panel.grid.minor.y = ggplot2::element_blank(),
# Remove background for legend key # Remove background for legend key
legend.key = ggplot2::element_blank(), legend.key = ggplot2::element_blank(),
plot.title.position = "plot",
plot.caption.position = "plot",
# Text sizes # Text sizes
axis.text = ggplot2::element_text(size = axis_text_size), axis.text = ggplot2::element_text(
axis.title = ggplot2::element_text(size = axis_title_size), 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 # Wrap title
plot.title = ggtext::element_textbox_simple(), plot.title = ggtext::element_textbox_simple(),
plot.subtitle = 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 ? # Axis lines ?
if (axis_x & axis_y) { if (axis_x & axis_y) {
theme_reach <- theme_reach + theme_reach <- theme_reach +