R/utils.R

In lwjohnst86/seminar2016: Slides and Data Analysis for PhD Seminar Fall 2016

# Misc --------------------------------------------------------------------

# Trim white space
trim_ws <- function (x) {
    gsub("^\\s+|\\s+$", "", x)
}

format_rounding <- function(x, digits = 1) {
    trim_ws(format(round(x, digits = digits), nsmall = digits))
}

format_p <- function(x) {
   format.pval(x, digits = 2, eps = 0.001)
}

graph_theme <- function(base.plot, ticks = TRUE, minor.grid.lines = FALSE, legend.pos = 'bottom') {
    graph.theme <-
        ggplot2::"%+replace%"(
            ggthemes::theme_tufte(base_size = 10, base_family = 'sans'),
            ggplot2::theme(
                axis.line = ggplot2::element_line('black'),
                axis.line.x = ggplot2::element_line('black'),
                axis.line.y = ggplot2::element_line('black'),
                legend.key.width = grid::unit(0.7, "line"),
                legend.key.height = grid::unit(0.7, "line"),
                strip.background = ggplot2::element_blank(),
                plot.margin = grid::unit(c(0, 0, 0.5, 0), "cm"),
                legend.position = legend.pos
            )
        )

    if (!ticks) {
        graph.theme <- ggplot2::"%+replace%"(graph.theme,
                                             ggplot2::theme(axis.ticks.y = ggplot2::element_blank()))
    }

    if (minor.grid.lines) {
        graph.theme <- ggplot2::"%+replace%"(
            graph.theme,
            ggplot2::theme(
                panel.grid = ggplot2::element_line(),
                panel.grid.minor = ggplot2::element_blank()
            )
        )
    }

    return(graph.theme)
}