fix scale in fig 5d

Katsevich-Lab · Sep 26, 2021 · a7ef381 · a7ef381
1 parent fca61a1
commit a7ef381
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/sceptre_paper/plotting/Figure5.R b/sceptre_paper/plotting/Figure5.R
@@ -198,7 +198,7 @@ p_d <- TF_enrichments_xie %>% arrange(dplyr::desc(method)) %>%
          TF = factor(TF,
                      levels = ordered_labs,
                      labels = ordered_labs)) %>%
-  #filter(method %in% c('Original', 'SCEPTRE')) %>%
+  filter(method %in% c("Virtual FACS", "Monocle NB", "Improved NB", "SCEPTRE")) %>%
   ggplot(aes(x = TF, y = enrichment, fill = method)) +
   geom_col(position = "dodge", width = 0.95) +
   xlab("ChIP-seq target") + ylab("Enrichment (odds ratio)") + ggtitle("Enhancer ChIP-seq enrichment") +