From e570454cf2aa7c9a509ab5f78d6c27946312f783 Mon Sep 17 00:00:00 2001
From: Tanushree Tunstall <tanu@tunstall.in>
Date: Wed, 9 Sep 2020 18:56:59 +0100
Subject: [PATCH] saving work

---
 scripts/plotting/barplots_subcolours_aa_PS.R | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/scripts/plotting/barplots_subcolours_aa_PS.R b/scripts/plotting/barplots_subcolours_aa_PS.R
index ea0b690..7c0a3aa 100755
--- a/scripts/plotting/barplots_subcolours_aa_PS.R
+++ b/scripts/plotting/barplots_subcolours_aa_PS.R
@@ -18,7 +18,6 @@ getwd()
 library(ggplot2)
 library(data.table)
 source("barplot_colour_function.R")
-#source("subcols_axis.R")
 source("subcols_axis.R")
 
 # should return the following dfs, directories and variables
@@ -160,9 +159,7 @@ min(df$duet_scaled)
 max(df$duet_scaled)
 
 # sanity checks
-# very important!!!!
 tapply(df$duet_scaled, df$duet_outcome, min)
-
 tapply(df$duet_scaled, df$duet_outcome, max)
 
 # My colour FUNCTION: based on group and subgroup
@@ -240,7 +237,7 @@ outPlot = g +
          , axis.ticks.x = element_blank()) +
   labs(title = ""
        #title = my_title
-       , x = "position"
+       , x = "Position"
        , y = "Frequency")
 
 print(outPlot)