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

updated and tested logoP_snp.R. All done nicely

Browse source
This commit is contained in:
Tanushree Tunstall 2022-01-15 13:17:26 +00:00
parent 0334188801
commit 9546355241
4 changed files with 155 additions and 99 deletions
Download patch file Download diff file Expand all files Collapse all files

50
scripts/plotting/get_plotting_dfs.R
View file

@ -120,44 +120,44 @@ 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
####################################################################
source(paste0(plot_script_path, "lineage_data.R"))
s3 = c("\nSuccessfully sourced lineage_data.R")
cat(s3)
#
# source(paste0(plot_script_path, "lineage_data.R"))
#
# s3 = c("\nSuccessfully sourced lineage_data.R")
# cat(s3)
####################################################################
# Data for corr plots:
####################################################################
# make sure the above script works because merged_df2_combined is needed
source(paste0(plot_script_path, "corr_data.R"))
s4 = c("\nSuccessfully sourced corr_data.R")
cat(s4)
# source(paste0(plot_script_path, "corr_data.R"))
#
# 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

3
scripts/plotting/logo_plots.R
View file

@ -190,7 +190,8 @@ cat('\nDone: p2')
wt_logo_p = p2 +
theme(legend.position = "bottom"
#, legend.title = element_blank()
, legend.title = element_text("Amino acid properties", size = 20)
, legend.title = element_text("Amino acid properties"
, size = 20)
, legend.text = element_text(size = 20)
, axis.text.x = element_text(size = 14, angle = 90)
, axis.text.y = element_blank()