From 1132ebf121997f3da42a21bbb7a9b0b6cb6854ee Mon Sep 17 00:00:00 2001 From: Fontrodona Nicolas <nicolas.fontrodona@ens-lyon.fr> Date: Wed, 24 Aug 2022 17:31:51 +0200 Subject: [PATCH] src/common_functions.R: add new colors --- src/common_functions.R | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/common_functions.R b/src/common_functions.R index ceb36ca..63e91c0 100644 --- a/src/common_functions.R +++ b/src/common_functions.R @@ -2,7 +2,9 @@ royalblue <- "#4169e1" +blue_tdd <- "#a600ff" indianred <- "#CD5C5C" +red_tdd <- "#ff8400" #' Add a column group to a table containing a gene column @@ -11,8 +13,8 @@ indianred <- "#CD5C5C" #' @return The table with a column indicating if the genes are up, down or not #' regulated by BRAF get_group_columns <- function(tdd_full, dir = "./data/gene_lists/") { - down_braf <- read.table(paste0(dir, "BRAF_DOWN_1.5_name.txt"))$V1 - up_braf <- read.table(paste0(dir, "BRAF_UP_1.5_name.txt"))$V1 + down_braf <- read.table(paste0(dir, "BRAF_DOWN_1.5.txt"))$V1 + up_braf <- read.table(paste0(dir, "BRAF_UP_1.5.txt"))$V1 tdd_full$group <- rep("CTRL", times = nrow(tdd_full)) tdd_full[tdd_full$gene %in% down_braf, "group"] <- "BRAF_DOWN" tdd_full[tdd_full$gene %in% up_braf, "group"] <- "BRAF_UP" -- GitLab