#' Draw venn diagram with example values
#'
#' @return venn diagram
#'
#' @importFrom VennDiagram draw.triple.venn
#'
#' @export
#'
#' @examples
#' \dontrun{
#' drawVennPlot()
#' }
drawVennPlot <- function() {
venn <- VennDiagram::draw.triple.venn(
area1 = 39,
area2 = 39,
area3 = 39,
n12 = 36,
n23 = 31,
n13 = 30,
n123 = 29,
category = c("EpSO", "ESSO", "EPILONT"),
fill = c("blue", "orange", "green"),
lty = "blank",
cex = 2,
cat.cex = 2,
cat.col = c("blue", "orange", "green")
);
return (venn)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.