library(data.table) library(ggplot2) library(UpSetR) library(ComplexUpset) conglomeration <- fread("INPUT_PATH/INPUT_FILE.txt") methods <- colnames(conglomeration)[c(2:ncol(conglomeration))] ComplexUpset::upset( conglomeration , methods, base_annotations=list( 'Intersection size'=intersection_size( counts=TRUE, aes=aes(fill=Nomination) ) ), width_ratio=0.1, sort_intersections_by='degree' )+ theme(panel.grid.major=element_blank(), panel.grid.minor=element_blank())