Nothing
## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(echo = TRUE)
## -----------------------------------------------------------------------------
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
)
## ---- fig.width=9, fig.height=5, out.width="850px",tidy=TRUE, fig.align='center'----
upsetjs() %>% fromDataFrame(t) %>% generateIntersections()
## ---- fig.width=9, fig.height=5, out.width="850px",tidy=TRUE, fig.align='center'----
upsetjs() %>% fromDataFrame(t) %>% generateUnions()
## ---- fig.width=9, fig.height=5, out.width="850px",tidy=TRUE, fig.align='center'----
upsetjs() %>% fromDataFrame(t) %>% generateDistinctIntersections()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.