The goal of setreuler is to draw boxy Euler diagrams.
You can install the development version from GitHub with:
# install.packages("devtools")
devtools::install_github("kylebittinger/setreuler")
library(tidyverse)
This is a basic example which shows you how to solve a common problem:
myset_data <- tibble::tibble(
label = LETTERS[1:11],
setA = rep(c(T, F), c(10, 1)),
setB = rep(c(F, T), c(5, 6)))
myset_coords <- myset_data %>%
summarize(setreuler_coordinates(setA, setB, offset = 0.1, width = 2))
myset_coords %>%
setreuler_plot(radius = grid::unit(2, "mm"))