From eee963457639df3c306cb56cea065076a9704fbc Mon Sep 17 00:00:00 2001
From: Fontrodona Nicolas <nicolas.fontrodona@ens-lyon.fr>
Date: Tue, 23 May 2023 15:54:54 +0200
Subject: [PATCH] src/06_compute_tdd_index.R: no title on tdd_violin figure
---
src/06_compute_tdd_index.R | 18 +-----------------
1 file changed, 1 insertion(+), 17 deletions(-)
diff --git a/src/06_compute_tdd_index.R b/src/06_compute_tdd_index.R
index 622ee1a..1ffd4ed 100644
--- a/src/06_compute_tdd_index.R
+++ b/src/06_compute_tdd_index.R
@@ -1040,21 +1040,6 @@ create_tdd_violin <- function(mkind = "UP_CC_peaks",
names_to = "condition",
values_to = "TDD"
)
- if (mkind == "UP_CC_peaks" | mkind == "BRAF_UP") {
- test_color <- "#fb7b7b"
- tdd_table <- tdd_table %>% filter(condition == "DMSO")
- title <- paste0(
- "Average TDD index comparisons (at 3 and 5h) in DMSO condition\n",
- "between TCpeak-UP genes in DMSO conditions and CTRL genes"
- )
- } else {
- test_color <- "#7b7bfb"
- tdd_table <- tdd_table %>% filter(condition == "BRAF")
- title <- paste0(
- "Average TDD index comparisons (at 3 and 5h) in BRAF condition\n",
- "between TCpeak-DOWN genes in BRAF conditions and CTRL genes"
- )
- }
p <- ggplot(
data = tdd_table,
mapping = aes_string(x = col, y = "TDD", fill = col)
@@ -1068,8 +1053,7 @@ create_tdd_violin <- function(mkind = "UP_CC_peaks",
panel.grid.major.x = element_line(),
panel.grid.major.y = element_line(),
) +
- coord_cartesian(ylim = c(-0.5, 1.5)) +
- ggtitle(title)
+ coord_cartesian(ylim = c(-0.5, 1.5))
dir.create(output, showWarnings = F)
outname <- paste0("Peak_", mkind, "_3_5h")
pdf(paste0(output, "/", outname, ".pdf"), height = 10, width = 17)
--
GitLab