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

Font to Segoe Ui

Browse source 
Add angle for x-axis
This commit is contained in:
gnoblet 2023-01-22 08:09:19 -05:00
parent fb61aa8b63
commit a6bba23e3e
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
R/theme_reach.R
View file

@ -50,7 +50,7 @@ theme_reach <- function(
palette = "main", palette = "main",
discrete = TRUE, discrete = TRUE,
reverse = FALSE, reverse = FALSE,
font_family = "Leelawadee", font_family = "Segoe UI",
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",
@ -76,6 +76,9 @@ theme_reach <- function(
axis_title_size = 11, axis_title_size = 11,
axis_title_color = cols_reach("main_grey"), axis_title_color = cols_reach("main_grey"),
axis_title_font_face = "bold", axis_title_font_face = "bold",
axis_text_x_angle = 0,
axis_text_x_vjust = 0,
axis_text_x_hjust = 0,
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"),
@ -145,6 +148,11 @@ theme_reach <- function(
face = legend_text_font_face, face = legend_text_font_face,
family = font_family, family = font_family,
color = legend_text_color color = legend_text_color
),
axis.text.x = ggplot2::element_text(
angle = axis_text_x_angle,
vjust = axis_text_x_vjust,
hjust = axis_text_x_hjust
) )
) )