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()