I am trying to move away from the Venn plots for anything more than 3 conditions/samples in my experiments. It just become more and more difficult to interpret.
UpSet plots using UpSetR::upset() work great,but I am having to remove the Set Size plot in post production by cropping. I wish to remove it from the upset bar plots so that generated plot is ready to use in reports.
Also several of my colleagues (biologists around me who need these figures for their reports) are too used to looking at venns and they would really like to see percentages along with full number of observations in each intersection. Generally I am looking to show the overlap in the expression of various genes etc in different conditions.
Here is an example:
require(tidyverse)
require(stringr)
require(VennDiagram)
require(UpSetR)
temp_movies <- ggplot2movies::movies
to_UpSet <- list( Action = filter( temp_movies, Action == 1)$title,
Comedy = filter( temp_movies, Comedy == 1)$title,
Drama = filter( temp_movies, Drama == 1)$title,
Romance = filter( temp_movies, Romance == 1)$title)
upset(fromList(to_UpSet),
order.by = "freq",
set_size.show = TRUE)
It produces:
How can I remove the Set Size plot and add % like in the Venn Diagram attached
Manually cropped example is here along with % labels for two bars - need % labels on all the bars: