In amitjavilaventura/ggmitji: Useful functions for ggplot.

knitr::opts_chunk$set(echo = TRUE, fig.align = "center", fig.width = 4, fig.height = 4, 
                      warning = FALSE, error = FALSE, message = FALSE)
devtools::load_all("..")

Last updated: r Sys.Date()

# Load ggplot2
library(ggplot2)

# Load ggmitji 
library(ggmitji)

# Load patchwork (to put plots together)
library(patchwork)

areas <-
  shaded_2d_venn(highlight = "all", color = "white", line.col = "black") +
  annotate("text", label = "AB", x = .5, y = .5, hjust = .5, vjust = .5) +
  annotate("text", label = "AnoB", x = .2, y = .5, hjust = .5, vjust = .5) +
  annotate("text", label = "noAB", x = .8, y = .5, hjust = .5, vjust = .5) +
  annotate("text", label = "Name of each area", x = .5, y = 1.06, hjust = .5, vjust = 0, fontface = "bold", size = 8) +
  coord_cartesian(ylim = c(0, 1))

areas

v1 <- shaded_2d_venn(highlight = "AB", color = "red")
v2 <- shaded_2d_venn(highlight = "noAB", color = "green")
v3 <- shaded_2d_venn(highlight = "AnoB", color = "yellow")
v4 <- shaded_2d_venn(highlight = c("AB", "AnoB", "noAB"), c("red", "yellow", "green"))
v5 <- shaded_2d_venn(highlight = "all", color = "black", line.col = "white")