R/RvennAB.R

In EccRiley/Riley: Riley: A working R-library of functions, data, color palettes (etc.) for everyday, and not-so-everyday, R tasks.

#' ## **`RvennAB()`**
#'
#' This is a slightly more complex version of **`RvennA()`**, but is still a transferable/skeletal version of the euler venn diagram function I use specifically for my stuff (see **`REvennA()`**)
#'
#'
RvennAB <- function(x,
                    vcol,
                    labs = rev(names(x)),
                    al = 0.5,
                    lcex = 1,
                    adj = NULL,
                    ...) {
  library(VennDiagram)
  library(venneuler)
    A <- x[[2]]
    AB <- x[[1]]
    evenn <- venneuler(c(A = A, "A&B" = AB))
    evenn$labels <- c("", "")
    plot(evenn, col = vcol, alpha = al, ...)
    text(
        evenn$centers,
        labels = labs,
        col = mypal[1],
        cex = lcex,
        adj = adj
    )
    return(evenn)
}