diff --git a/scripts/functions/tests/test_logoP.R b/scripts/functions/tests/test_logoP.R new file mode 100644 index 0000000..57b9ac0 --- /dev/null +++ b/scripts/functions/tests/test_logoP.R @@ -0,0 +1,28 @@ + +#source("~/git/LSHTM_analysis/config/gid.R") +#source("~/git/LSHTM_analysis/scripts/plotting/get_plotting_dfs.R") + + +LogoPlotCustomH (plot_df = merged_df3 + , x_axis_colname = "position" + , y_axis_colname = "or_mychisq" + , symbol_colname = "mutant_type" + , y_axis_log = T + , log_value = log10 + , rm_empty_pos = T + , my_logo_col = 'chemistry' + , x_lab = "Position" + , y_lab = "Odds Ratio" + , x_ats = 12 # text size + , x_tangle = 90 # text angle + , y_ats = 22 + , y_tangle = 0 + , x_tts = 19 # title size + , y_tts = 22 + #, leg_pos = c(0.05,-0.12) + , leg_pos = "top" + , leg_dir = "horizontal" + , leg_ts = 15 # leg text size + , leg_tts = 16 # leg title size +) + diff --git a/scripts/functions/tests/test_logoP_snp.R b/scripts/functions/tests/test_logoP_snp.R new file mode 100644 index 0000000..0f18c5d --- /dev/null +++ b/scripts/functions/tests/test_logoP_snp.R @@ -0,0 +1,25 @@ + +#source("~/git/LSHTM_analysis/config/gid.R") +#source("~/git/LSHTM_analysis/scripts/plotting/get_plotting_dfs.R") + + +LogoPlotSnps(plot_df = merged_df3 + , x_axis_colname = "position" + , symbol_mut_colname = "mutant_type" + , symbol_wt_colname = "mutant_type" + , omit_snp_count = c(0)# can be 1, 2, etc. + + , my_logo_col = "chemistry" + , x_lab = "Position" + , y_lab = "Count" + , x_ats = 1 # text size + , x_tangle = 90 # text angle + , y_ats = 1 + , y_tangle = 0 + , x_tts = 20 # title size + , y_tts = 20 + , leg_pos = "top" # can be top, left, right and bottom or c(0.8, 0.9) + , leg_dir = "horizontal" #can be vertical or horizontal + , leg_ts = 20 # leg text size + , leg_tts = 16 # leg title size +)