Figures valentina

figures/src/fig_mmseq_upsetr.R

@@ -8,7 +8,7 @@ sink(file=file(snakemake@log[[1]], open="wt"), type="message")
 # https://cran.r-project.org/web/packages/UpSetR/vignettes/basic.usage.html
 
 ## IMPORT
-suppressMessages(library(testit))
+# suppressMessages(library(testit))
 suppressMessages(library(UpSetR))
 # custom
 source(snakemake@params$utils)
@@ -22,7 +22,7 @@ overlap_sizes <- read.csv(
     stringsAsFactors=FALSE
 )
 # check: all expected tools are there
-testit::assert(all(sapply(names(TOOL_NAMES), function(x){ x %in% overlap_sizes$V2 })))
+# testit::assert(all(sapply(names(TOOL_NAMES), function(x){ x %in% overlap_sizes$V2 })))
 # process names
 for(tname in names(TOOL_NAMES)){
     overlap_sizes$V2 <- sub(tname, TOOL_NAMES[tname], overlap_sizes$V2)
@@ -41,17 +41,13 @@ UpSetR::upset(
     order.by="degree",
     decreasing=FALSE,
     # colors
-    # queries=lapply(
-    #     TOOL_NAMES,
-    #     function(x){ list(query=UpSetR::intersects, params=list(x), color=TOOL_COLORS$proc[[x]], active=TRUE) }
-    # ),
     set.metadata=list(
         data=data.frame(
-            sets=TOOL_NAMES,
-            Tool=TOOL_NAMES,
+            sets=TOOL_NAMES_NOTMETH,
+            Tool=TOOL_NAMES_NOTMETH,
             stringsAsFactors=FALSE
         ), 
-        plots=list(list(type="matrix_rows", column="Tool", colors=TOOL_COLORS$proc, alpha=0.7))
+        plots=list(list(type="matrix_rows", column="Tool", colors=TOOL_COLORS$notmeth, alpha=0.7))
     )
 )
 dev.off()