Author: Samuel Gratzl
Date: 2022-07-12

# UpSet.js Combination Modes

#### Samuel Gratzl

#### 2022-07-12

# UpSet.js Combination Modes

    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
    )

## Intersection Mode

    upsetjs() %>%
        fromDataFrame(t) %>%
        generateIntersections()

## Union Mode

    upsetjs() %>%
        fromDataFrame(t) %>%
        generateUnions()

## Distinct Intersection Mode

    upsetjs() %>%
        fromDataFrame(t) %>%
        generateDistinctIntersections()