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

Bigger text siwe

Browse source
This commit is contained in:
gnoblet 2025-07-01 19:36:07 +02:00
parent 7f56642954
commit ae7e76b862
1 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
R/theme_default.R
View file

@ -62,18 +62,18 @@
#' @export #' @export
theme_default <- function( theme_default <- function(
title_font_family = "Carlito", title_font_family = "Carlito",
title_size = 16, title_size = 20,
title_color = color("dark_grey"), title_color = color("dark_grey"),
title_font_face = "bold", title_font_face = "bold",
title_hjust = NULL, title_hjust = NULL,
title_position_to_plot = TRUE, title_position_to_plot = TRUE,
subtitle_font_family = "Carlito", subtitle_font_family = "Carlito",
subtitle_size = 15, subtitle_size = 16,
subtitle_color = color("dark_grey"), subtitle_color = color("dark_grey"),
subtitle_font_face = "plain", subtitle_font_face = "plain",
subtitle_hjust = NULL, subtitle_hjust = NULL,
text_font_family = "Carlito", text_font_family = "Carlito",
text_size = 13, text_size = 14,
text_color = color("dark_grey"), text_color = color("dark_grey"),
text_font_face = "plain", text_font_face = "plain",
panel_background_color = "#FFFFFF", panel_background_color = "#FFFFFF",
@ -83,15 +83,15 @@ theme_default <- function(
legend_direction = "horizontal", legend_direction = "horizontal",
legend_justification = "center", legend_justification = "center",
legend_reverse = TRUE, legend_reverse = TRUE,
legend_title_size = 13, legend_title_size = 14,
legend_title_color = color("dark_grey"), legend_title_color = color("dark_grey"),
legend_title_font_face = "plain", legend_title_font_face = "plain",
legend_title_font_family = "Carlito", legend_title_font_family = "Carlito",
legend_text_size = 13, legend_text_size = 14,
legend_text_color = color("dark_grey"), legend_text_color = color("dark_grey"),
legend_text_font_face = "plain", legend_text_font_face = "plain",
legend_text_font_family = "Carlito", legend_text_font_family = "Carlito",
facet_size = 14, facet_size = 15,
facet_color = color("dark_grey"), facet_color = color("dark_grey"),
facet_font_face = "bold", facet_font_face = "bold",
facet_font_family = "Carlito", facet_font_family = "Carlito",
@ -105,7 +105,7 @@ theme_default <- function(
axis_line_y = TRUE, axis_line_y = TRUE,
axis_ticks_y = TRUE, axis_ticks_y = TRUE,
axis_text_font_family = "Carlito", axis_text_font_family = "Carlito",
axis_text_size = 13, axis_text_size = 14,
axis_text_color = color("dark_grey"), axis_text_color = color("dark_grey"),
axis_text_font_face = "plain", axis_text_font_face = "plain",
axis_title_size = 15, axis_title_size = 15,
@ -127,7 +127,7 @@ theme_default <- function(
caption_font_family = "Carlito", caption_font_family = "Carlito",
caption_font_face = "plain", caption_font_face = "plain",
caption_position_to_plot = TRUE, caption_position_to_plot = TRUE,
caption_size = 11, caption_size = 12,
caption_color = color("dark_grey"), caption_color = color("dark_grey"),
...) { ...) {
# Basic simple theme # Basic simple theme
@ -166,7 +166,7 @@ theme_default <- function(
size = title_size, size = title_size,
face = title_font_face, face = title_font_face,
width = grid::unit(0.9, "npc"), width = grid::unit(0.9, "npc"),
margin = ggplot2::margin(b = 5) margin = ggplot2::margin(b = 10)
), ),
plot.subtitle = ggtext::element_textbox_simple( plot.subtitle = ggtext::element_textbox_simple(
hjust = title_hjust, hjust = title_hjust,
@ -174,14 +174,14 @@ theme_default <- function(
color = subtitle_color, color = subtitle_color,
size = subtitle_size, size = subtitle_size,
face = subtitle_font_face, face = subtitle_font_face,
margin = ggplot2::margin(t = 5, b = 5) margin = ggplot2::margin(t = 5, b = 10)
), ),
plot.caption = ggtext::element_textbox_simple( plot.caption = ggtext::element_textbox_simple(
size = caption_size, size = caption_size,
face = caption_font_face, face = caption_font_face,
family = caption_font_family, family = caption_font_family,
color = caption_color, color = caption_color,
margin = ggplot2::margin(t = 5) margin = ggplot2::margin(t = 10)
), ),
legend.title = ggplot2::element_text( legend.title = ggplot2::element_text(
size = legend_title_size, size = legend_title_size,