bryan/hartman-server
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix theme_grey() in theme_publication

Browse Source
This commit is contained in:
Bryan Roessler
2024-09-01 03:37:02 -04:00
parent 9e2a2d16c5
commit 62e7cf2b60
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
workflow/apps/r/calculate_interaction_zscores5.R
View File

@@ -62,8 +62,11 @@ dir.create(file.path(args$out_dir, "zscores"), showWarnings = FALSE)
dir.create(file.path(args$out_dir, "zscores", "qc"), showWarnings = FALSE) dir.create(file.path(args$out_dir, "zscores", "qc"), showWarnings = FALSE)
# Define themes and scales # Define themes and scales
theme_publication <- function(base_size = base_size, base_family = "sans", legend_position = "bottom") { # Define themes and scales
theme_foundation(base_size = base_size, base_family = base_family) + theme_publication <- function(base_size = 14, base_family = "sans", legend_position = "bottom") {
theme_foundation <- ggplot2::theme_grey(base_size = base_size, base_family = base_family)
theme_foundation %+replace%
theme( theme(
plot.title = element_text(face = "bold", size = rel(1.2), hjust = 0.5), plot.title = element_text(face = "bold", size = rel(1.2), hjust = 0.5),
text = element_text(), text = element_text(),
@@ -85,6 +88,7 @@ theme_publication <- function(base_size = base_size, base_family = "sans", legen
) )
} }
scale_fill_publication <- function(...) { scale_fill_publication <- function(...) {
discrete_scale("fill", "Publication", manual_pal(values = c( discrete_scale("fill", "Publication", manual_pal(values = c(
"#386cb0", "#fdb462", "#7fc97f", "#ef3b2c", "#662506", "#386cb0", "#fdb462", "#7fc97f", "#ef3b2c", "#662506",