voila_tsv <- voila_tsv %>%
mutate(splicing_type = case_when(`Num. Junctions` == 2 & ES == "False" & A5SS == FALSE & A3SS == FALSE ~ "retained intron",
`IR coords` != "" ~ "complex: retained intron",
`Num. Junctions` == 2 & `Num. Exons` == 3 ~ "skipped exon",
`Num. Junctions` == 3 & `Num. Exons` == 4 ~ "two-skipped exons",
`Num. Junctions` == 4 & `Num. Exons` == 5 ~ "multi-skipped exons",
`Num. Junctions` == 5 & `Num. Exons` == 6 ~ "multi-skipped exons",
`Num. Junctions` == 6 & `Num. Exons` == 7 ~ "multi-skipped exons",
`Num. Junctions` == 7 & `Num. Exons` == 8 ~ "multi-skipped exons",
`Num. Junctions` == 8 & `Num. Exons` == 9 ~ "multi-skipped exons",
`Num. Junctions` == 9 & `Num. Exons` == 10 ~ "multi-skipped exons",
`Num. Junctions` == 2 & `Num. Exons` == 4 ~ "mutually exclusive exon",
`Num. Junctions` == 2 & A3SS == TRUE ~ "alternative 3\'",
`Num. Junctions` == 2 & A5SS == TRUE ~ "alternative 5\'",
TRUE ~ "complex: other"))