R/theme_perso.R

In RGCCA: Regularized and Sparse Generalized Canonical Correlation Analysis for Multiblock Data

# Default theme for ggplot
theme_perso <- function(cex = 1, cex_main = 12 * cex, cex_sub = 10 * cex,
                        cex_lab = 10 * cex) {
  # ggplot2::theme_classic() +
  ggplot2::theme_minimal() +
    ggplot2::theme(
      legend.text = ggplot2::element_text(size = cex_lab),
      legend.title = ggplot2::element_text(
        face = "italic", size = cex_sub
      ),
      plot.title = ggplot2::element_text(
        size = cex_main,
        margin = ggplot2::margin(0, 0, 0, 0, "mm")
      ),
      axis.title = ggplot2::element_text(size = cex_sub),
      axis.text = ggplot2::element_text(
        size = cex_sub,
        face = "italic",
        color = "gray40"
      ),
      axis.line = ggplot2::element_blank(),
      axis.ticks = ggplot2::element_blank(),
      panel.grid.major = ggplot2::element_line()
    )
}