library(upsetjs)
library(tibble)t <- tribble(
  ~set1, ~set2, ~set3,
   1,   1,   0,
   0,   0,   1,
   0,   1,   1,
   0,   0,   1,
   0,   0,   1,
   0,   1,   1,
   1,   0,   1,
   0,   1,   1,
   0,   0,   1,
   0,   0,   1,
   1,   1,   1,
   1,   0,   0,
   0,   0,   1,
   0,   1,   0,
   1,   1,   1,
   0,   1,   0,
   0,   1,   1,
   0,   1,   0,
   0,   0,   1,
   0,   0,   1
)upsetjs() %>%
    fromDataFrame(t) %>%
    generateIntersections()upsetjs() %>%
    fromDataFrame(t) %>%
    generateUnions()upsetjs() %>%
    fromDataFrame(t) %>%
    generateDistinctIntersections()