added NOTE to the barplots_subcolours_aa_PS.R as I am trying it for other plots

scripts/plotting/barplots_subcolours_aa_PS.R

@@ -209,6 +209,8 @@ svg(plot_bp_aa_subcols_duet, width = 26, height = 4)
 
 g = ggplot(df, aes(factor(position, ordered = T)))
 
+# NOTE:  Here it"s important to specify that your axis goes from 1 to max number of levels
+# This is the key to generating the geom_tiles OUTside the plotting area on the x-axis!
 OutPlot_aa_PS = g + 
   coord_cartesian(xlim = c(1, my_xlim)
                   #, ylim = c(0, 6)
@@ -222,7 +224,7 @@ OutPlot_aa_PS = g +
   geom_tile(aes(,-1.2, width = 0.95, height = -0.2)
             , fill = df$lab_bg2) +
   
-# Here it"s important to specify that your axis goes from 1 to max number of levels
+
   theme(axis.text.x = element_text(size = my_xats
                                     , angle = 90
                                     , hjust = 1

scripts/plotting/get_plotting_dfs.R

@@ -102,9 +102,9 @@ merged_df3_comp = all_plot_dfs[[4]]
 #                        Data for logoplots
 ####################################################################
 
-#source(paste0(plot_script_path, "logo_data_msa.R"))
+source(paste0(plot_script_path, "logo_data_msa.R"))
-#s1 = c("\nSuccessfully sourced logo_data_msa.R")
+s1 = c("\nSuccessfully sourced logo_data_msa.R")
-#cat(s1)
+cat(s1)
 
 ####################################################################
 #                     Data for DM OM Plots: WF and LF dfs
@@ -113,9 +113,9 @@ merged_df3_comp = all_plot_dfs[[4]]
 #source("other_plots_data.R")
 ####################################################################
 
-#source(paste0(plot_script_path, "dm_om_data.R"))
+source(paste0(plot_script_path, "dm_om_data.R"))
-#s2 = c("\nSuccessfully sourced other_plots_data.R")
+s2 = c("\nSuccessfully sourced other_plots_data.R")
-#cat(s2)
+cat(s2)
 
 ####################################################################
 #                  Data for Lineage barplots: WF and LF dfs
@@ -152,20 +152,23 @@ head(corr_df_m3_f)
 corr_df_m2_f = corr_data_extract(merged_df2, extract_scaled_cols = F)
 head(corr_df_m2_f)
 
+s4 = c("\nSuccessfully sourced Corr_data.R")
+cat(s4)
+
 ########################################################################
 #                           End of script
 ########################################################################
-# if (  all( length(s1), length(s2), length(s3), length(s4) ) > 0 ){
+if (  all( length(s1), length(s2), length(s3), length(s4) ) > 0 ){
-#  cat(
+ cat(
-#   "\n##################################################"
+  "\n##################################################"
-#  , "\nSuccessful: get_plotting_dfs.R worked!"
+ , "\nSuccessful: get_plotting_dfs.R worked!"
-#  , "\n###################################################\n") 
+ , "\n###################################################\n")
-#  } else {
+ } else {
-#  cat(
+ cat(
-#   "\n#################################################"
+  "\n#################################################"
-#  , "\nFAIL: get_plotting_dfs.R didn't complete fully!Please check"
+ , "\nFAIL: get_plotting_dfs.R didn't complete fully!Please check"
-#  , "\n###################################################\n" )
+ , "\n###################################################\n" )
-# }   
+}
  
 ########################################################################
 # clear excess variables: from the global enviornment
@@ -175,8 +178,7 @@ vars1 = ls(envir = .GlobalEnv)[grepl("^cols_to*", ls(envir = .GlobalEnv))]
 vars2 = ls(envir = .GlobalEnv)[grepl("pivot_cols_*", ls(envir = .GlobalEnv))]
 vars3 = ls(envir = .GlobalEnv)[grepl("expected_*", ls(envir = .GlobalEnv))]
 
-rm( fact_cols
+rm( infile_metadata
-   , infile_metadata
    , infile_params
    , vars0
    , vars1