diff --git a/scripts/plotting/barplots_subcolours_aa_PS.R b/scripts/plotting/barplots_subcolours_aa_PS.R index 546f4ff..4ece14f 100755 --- a/scripts/plotting/barplots_subcolours_aa_PS.R +++ b/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 diff --git a/scripts/plotting/get_plotting_dfs.R b/scripts/plotting/get_plotting_dfs.R index 18b7a2f..7c6b4e4 100644 --- a/scripts/plotting/get_plotting_dfs.R +++ b/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")) -#s1 = c("\nSuccessfully sourced logo_data_msa.R") -#cat(s1) +source(paste0(plot_script_path, "logo_data_msa.R")) +s1 = c("\nSuccessfully sourced logo_data_msa.R") +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")) -#s2 = c("\nSuccessfully sourced other_plots_data.R") -#cat(s2) +source(paste0(plot_script_path, "dm_om_data.R")) +s2 = c("\nSuccessfully sourced other_plots_data.R") +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 ){ -# cat( -# "\n##################################################" -# , "\nSuccessful: get_plotting_dfs.R worked!" -# , "\n###################################################\n") -# } else { -# cat( -# "\n#################################################" -# , "\nFAIL: get_plotting_dfs.R didn't complete fully!Please check" -# , "\n###################################################\n" ) -# } +if ( all( length(s1), length(s2), length(s3), length(s4) ) > 0 ){ + cat( + "\n##################################################" + , "\nSuccessful: get_plotting_dfs.R worked!" + , "\n###################################################\n") + } else { + cat( + "\n#################################################" + , "\nFAIL: get_plotting_dfs.R didn't complete fully!Please check" + , "\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 - , infile_metadata +rm( infile_metadata , infile_params , vars0 , vars1