diff --git a/src/06_compute_tdd_index.R b/src/06_compute_tdd_index.R index 622ee1a3da6492ff30919cfac833e30818ad3886..1ffd4ed6bbae4babe401db037e246e83a74b5460 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)