moved plotting_func to functions and replaced 3 basic_barplots scripts with 1

scripts/plotting/functions/plotting_globals.R

@@ -0,0 +1,61 @@
+#!/usr/bin/env Rscript     
+
+#########################################################
+# TASK: importing global variable for plotting
+# import_dirs()
+# other global variables
+#########################################################
+
+# import_dirs(): similar to mkdirs from python script in repo.
+# input args: 'drug' and 'gene'
+# output: dir names for input and output files
+
+import_dirs <- function(drug, gene) {
+  gene_match = paste0(gene,"_p.")
+  cat(gene_match)
+  
+  #============================
+  # directories and variables
+  #============================
+  
+  datadir        <<- paste0("~/git/Data/")
+  indir          <<- paste0(datadir, drug, "/input")
+  outdir         <<- paste0("~/git/Data/", drug, "/output")
+  plotdir        <<- paste0("~/git/Data/", drug, "/output/plots")
+  
+  dr_muts_col    <<- paste0('dr_mutations_', drug)
+  other_muts_col <<- paste0('other_mutations_', drug)
+  resistance_col <<- "drtype"
+  
+}
+
+# other globals
+#===============================
+# mcsm ligand distance cut off
+#===============================
+#mcsm_lig_cutoff <<- 10
+
+#==================
+# Angstroms symbol
+#==================
+
+angstroms_symbol <<- "\u212b"
+#cat(paste0("There are ", nrow(my_df_u_lig), " sites lying within 10", angstroms_symbol, " of the ligand\n"))
+
+#===============
+# Delta symbol
+#===============
+
+delta_symbol <<- "\u0394"; delta_symbol
+
+#==========
+# Colours
+#==========
+
+mcsm_red2 <<-  "#ae301e" # most negative
+mcsm_red1 <<-  "#f8766d"
+
+mcsm_mid <<- "white" # middle
+
+mcsm_blue1 <<- "#00bfc4"
+mcsm_blue2 <<- "#007d85" # most positive