R/stat_test_text.R

In EnvStats: Package for Environmental Statistics, Including US EPA Guidance

stat_test_text <-
function (mapping = NULL, data = NULL, geom = ifelse(text.box, 
    "label", "text"), position = "identity", na.rm = FALSE, show.legend = NA, 
    inherit.aes = TRUE, y.pos = NULL, y.expand.factor = 0.35, 
    test = "parametric", paired = FALSE, test.arg.list = list(), 
    two.lines = TRUE, p.value.digits = 3, p.value.digit.type = "round", 
    location.digits = 1, location.digit.type = "round", nsmall = ifelse(location.digit.type == 
        "round", location.digits, 0), text.box = FALSE, alpha = 1, 
    angle = 0, color = "black", family = "", fontface = "plain", 
    hjust = 0.5, label.padding = ggplot2::unit(0.25, "lines"), 
    label.r = ggplot2::unit(0.15, "lines"), label.size = 0.25, 
    lineheight = 1.2, size = 4, vjust = 0.5, ...) 
{
    geom <- match.arg(geom, c("label", "text"))
    test <- match.arg(test, c("parametric", "nonparametric"))
    p.value.digit.type <- match.arg(p.value.digit.type, c("round", 
        "signif"))
    location.digit.type <- match.arg(location.digit.type, c("round", 
        "signif"))
    params <- list(y.pos = y.pos, y.expand.factor = y.expand.factor, 
        test = test, paired = paired, test.arg.list = test.arg.list, 
        two.lines = two.lines, p.value.digits = p.value.digits, 
        p.value.digit.type = p.value.digit.type, location.digits = location.digits, 
        location.digit.type = location.digit.type, nsmall = nsmall, 
        alpha = alpha, angle = angle, color = color, family = family, 
        fontface = fontface, hjust = hjust, lineheight = lineheight, 
        size = size, vjust = vjust)
    if (geom == "label") {
        params <- c(params, list(label.padding = label.padding, 
            label.r = label.r, label.size = label.size, na.rm = na.rm, 
            ...))
    }
    else {
        params <- c(params, na.rm = na.rm, ...)
    }
    ggplot2::layer(stat = StatTestText, data = data, mapping = mapping, 
        geom = geom, position = position, show.legend = show.legend, 
        inherit.aes = inherit.aes, params = params)
}