library(tidyverse)
library(UpSetR)load data (top 30)
tt <- readr::read_csv("results_short.csv")## Parsed with column specification:
## cols(
## ev_cat = col_character(),
## n = col_integer()
## )
list with counts
tt_list <- as.list(tt$n)categories as list names
names(tt_list) <- tt$ev_catto vector
my_expr <- unlist(tt_list)convert with fromExpression and plot
upset(fromExpression(my_expr), order.by = "freq")