library(upsetjs)
library(tibble)
<- tribble(
t ~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()