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

Add minor grid lines args.

Browse source
This commit is contained in:
gnoblet 2023-01-22 11:55:11 -05:00
parent c4cb359cda
commit 8f9c47f917
1 changed files with 48 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

67
R/theme_reach.R
View file

@ -32,11 +32,16 @@
#' @param axis_title_size Axis title size. #' @param axis_title_size Axis title size.
#' @param axis_title_color Axis title color. #' @param axis_title_color Axis title color.
#' @param axis_title_font_face Axis title font face. Default to "plain". Font face ("plain", "italic", "bold", "bold.italic"). #' @param axis_title_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_major_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_major_y Boolean. Do you need major grid lines for y-axis?
#' @param grid_x_size X line size. #' @param grid_major_x_size Major X line size.
#' @param grid_y_size Y line size. #' @param grid_major_y_size Major Y line size.
#' @param grid_color Grid lines color. #' @param grid_major_color Major grid lines color.
#' @param grid_minor_x Boolean. Do you need minor grid lines for x-axis?
#' @param grid_minor_y Boolean. Do you need minor grid lines for y-axis?
#' @param grid_minor_x_size Minor X line size.
#' @param grid_minor_y_size Minor Y line size.
#' @param grid_minor_color Minor grid lines color.
#' @param caption_position_to_plot TRUE or FALSE. Positioning to plot or to panel? #' @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()`.
#' #'
@ -79,11 +84,16 @@ theme_reach <- function(
axis_text_x_angle = 0, axis_text_x_angle = 0,
axis_text_x_vjust = 0.5, axis_text_x_vjust = 0.5,
axis_text_x_hjust = 0.5, axis_text_x_hjust = 0.5,
grid_x = FALSE, grid_major_x = FALSE,
grid_y = FALSE, grid_major_y = FALSE,
grid_color = cols_reach("main_lt_grey"), grid_major_color = cols_reach("main_lt_grey"),
grid_x_size = 0.1, grid_major_x_size = 0.1,
grid_y_size = 0.1, grid_major_y_size = 0.1,
grid_minor_x = FALSE,
grid_minor_y = FALSE,
grid_minor_color = cols_reach("main_lt_grey"),
grid_minor_x_size = 0.05,
grid_minor_y_size = 0.05,
caption_position_to_plot = TRUE, caption_position_to_plot = TRUE,
... ...
) { ) {
@ -117,9 +127,6 @@ theme_reach <- function(
panel.background = ggplot2::element_rect( panel.background = ggplot2::element_rect(
fill = panel_background_color fill = panel_background_color
), ),
# Remove minor grid lines
panel.grid.minor.x = 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(),
# Text sizes # Text sizes
@ -192,27 +199,49 @@ theme_reach <- function(
} }
# X - major grid lines # X - major grid lines
if (!grid_x) theme_reach <- theme_reach + if (!grid_major_x) theme_reach <- theme_reach +
ggplot2::theme( ggplot2::theme(
panel.grid.major.x = ggplot2::element_blank() panel.grid.major.x = ggplot2::element_blank()
) else theme_reach <- theme_reach + ) else theme_reach <- theme_reach +
ggplot2::theme( ggplot2::theme(
panel.grid.major.x = ggplot2::element_line( panel.grid.major.x = ggplot2::element_line(
color = grid_color, color = grid_major_color,
linewidth = grid_x_size) linewidth = grid_major_x_size)
) )
# Y - major grid lines # Y - major grid lines
if (!grid_y) theme_reach <- theme_reach + if (!grid_major_y) theme_reach <- theme_reach +
ggplot2::theme( ggplot2::theme(
panel.grid.major.y = ggplot2::element_blank() panel.grid.major.y = ggplot2::element_blank()
) else theme_reach <- theme_reach + ) else theme_reach <- theme_reach +
ggplot2::theme( ggplot2::theme(
panel.grid.major.y = ggplot2::element_line( panel.grid.major.y = ggplot2::element_line(
color = grid_color, color = grid_major_color,
linewidth = grid_y_size) linewidth = grid_major_y_size)
) )
# X - minor grid lines
if (!grid_minor_x) theme_reach <- theme_reach +
ggplot2::theme(
panel.grid.minor.x = ggplot2::element_blank()
) else theme_reach <- theme_reach +
ggplot2::theme(
panel.grid.minor.x = ggplot2::element_line(
color = grid_minor_color,
linewidth = grid_minor_x_size)
)
# Y - minor grid lines
if (!grid_minor_y) theme_reach <- theme_reach +
ggplot2::theme(
panel.grid.minor.y = ggplot2::element_blank()
) else theme_reach <- theme_reach +
ggplot2::theme(
panel.grid.minor.y = ggplot2::element_line(
color = grid_minor_color,
linewidth = grid_minor_y_size)
)
# Other parameters # Other parameters
theme_reach <- theme_reach + ggplot2::theme(...) theme_reach <- theme_reach + ggplot2::theme(...)