library(UpSetR) upset(Data,sets = c("Lus","Ptr","Rco","Jcu","Mes","Hbr"),order.by="freq",empty.intersections="on")