R/set_themes.R

In pierrejacob/couplingsmontecarlo: Couplings and Monte Carlo

#'@export
set_theme_chapter1 <- function(){
    library(ggplot2)
    library(gridExtra)
    theme_set(theme_void())
    colors <- c(rgb(.75, 0.75, 0.75), rgb(0.255, 0.412, 0.882))
    return(list(colors = colors))
}

#'@export
set_theme_chapter2 <- function(){
    library(ggplot2)
    library(gridExtra)
    theme_set(theme_void())
    colors <- c(rgb(.1, 0.5, 0.3), rgb(0.9, 0.8, 0.1))
    return(list(colors = colors))
}

#'@export
set_theme_chapter3 <- function(){
    library(ggplot2)
    library(gridExtra)
    theme_set(theme_void())
    colors <- c(rgb(0.8,0.5,0.2), rgb(0.2, 0.6, 0.9))
    return(list(colors = colors))
}

#'@export
set_theme_chapter4 <- function(){
    library(ggplot2)
    library(gridExtra)
    theme_set(theme_void())
    colors <- c(rgb(0.8,0.5,0.4), rgb(0.5, 0.3, 0.8))
    return(list(colors = colors))
}