# Load libraries
library(UpSetR)
library(tibble)
# Example data
data <- list(
"A" = c("A", "B", "C", "D"),
"B" = c("A", "B", "C", "F"),
"C" = c("A", "B", "G", "E")
)
# Plot
plot_Upset(
input_list = data,
label = "Peptide.IDs"
)
Run the code above in your browser using DataLab