tanu/LSHTM_analysis
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

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

Browse source
This commit is contained in:
Tanushree Tunstall 2022-02-02 18:59:33 +00:00
parent d13484e8f5
commit 9c3818fd98
2 changed files with 24 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

4
scripts/plotting/barplots_subcolours_aa_PS.R
View file

@ -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

40
scripts/plotting/get_plotting_dfs.R
View file

@ -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