generated labelled ps_plots_combined.R and capital "P" for position in barplots coloured aa for Lig

scripts/plotting/barplots_subcolours_aa_LIG.R

@@ -20,7 +20,7 @@ library(ggplot2)
 library(data.table)
 source("barplot_colour_function.R")
 #source("subcols_axis.R")
-source("subcols_axis_PS.R")
+source("subcols_axis.R")
 
 # should return the following dfs, directories and variables
 # mut_pos_cols
@@ -218,7 +218,7 @@ svg(plot_bp_aa_subcols_ligand, width = 26, height = 4)
 
 g = ggplot(df, aes(factor(position, ordered = T)))
 
-outPlot = g + 
+OutPlot = g + 
   coord_cartesian(xlim = c(1, my_xlim)
                   #, ylim = c(0, 6)
                   , ylim = c(0, max(snp_count))
@@ -249,10 +249,10 @@ outPlot = g +
          , axis.ticks.x = element_blank()) +
   labs(title = ""
        #title = my_title
-       , x = "position"
+       , x = "Position"
        , y = "Frequency")
 
-print(outPlot)
+print(OutPlot)
 dev.off()
 
 #!!!!!!!!!!!!!!!!