UpSet.js Coloring

Samuel Gratzl

2023-01-11

Source: vignettes/colors.Rmd

UpSet.js R Widget - Coloring Diagrams

UpSet.js allow you to color sets in UpSet plots and Venn diagrams.

# devtools::install_url("https://github.com/upsetjs/upsetjs_r/releases/latest/download/upsetjs.tar.gz")
library(upsetjs)

Basic User Interface 

listInput <- list(s1 = c("a", "b", "c", "e", "g", "h", "k", "l", "m"), s2 = c("a", "b", "d", "e", "j"), s3 = c("a", "e", "f", "g", "h", "i", "j", "l", "m"))
colors <- list(s1 = "#1f77b4", s2 = "#2ca02c", s3 = "#d62728", `s1&s2` = "#9467bd", `s1&s3` = "#8c564b", `s2&s3` = "#e377c2", `s1&s2&s3` = "#bcbd22")

render <- function(upsetjs) {
  upsetjs %>%
    fromList(listInput, colors = colors) %>%
    chartTheme(selection.color = "", has.selection.opacity = 0.3) %>%
    interactiveChart()
}
v <- upsetjs() %>%
    render()
v
v <- upsetjsVennDiagram() %>%
    render()
v
v <- upsetjsEulerDiagram() %>%
    render()
v