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

SNP -> SAV for thesis plots

Browse source
This commit is contained in:
Tanushree Tunstall 2023-02-19 17:43:22 +00:00
parent 777d3765cf
commit db7e2912e1
31 changed files with 145 additions and 145 deletions
Download patch file Download diff file Expand all files Collapse all files

20
scripts/plotting/plotting_thesis/pnca/basic_barplots_pnca.R
View file

@ -68,7 +68,7 @@ mLigP = stability_count_bp(plotdf = df3_lig
, df_colname = "ligand_outcome"
#, leg_title = "mCSM-lig"
#, bp_plot_title = paste(common_bp_title, "ligand")
, yaxis_title = "Number of nsSNPs"
, yaxis_title = "Number of SAVs"
, leg_position = "none"
, subtitle_text = "mCSM\nLig"
, bar_fill_values = c("#F8766D", "#00BFC4")
@ -116,7 +116,7 @@ if (tolower(gene)%in%geneL_ppi2){
#, label_categories = labels_ppi2
#, bp_plot_title = paste(common_bp_title, "PP-interface")
, yaxis_title = "Number of nsSNPs"
, yaxis_title = "Number of SAVs"
, leg_position = "none"
, subtitle_text = "mCSM\nPPI2"
, bar_fill_values = c("#F8766D", "#00BFC4")
@ -141,7 +141,7 @@ if (tolower(gene)%in%geneL_na){
#, label_categories =
#, bp_plot_title = paste(common_bp_title, "Dist to NA")
, yaxis_title = "Number of nsSNPs"
, yaxis_title = "Number of SAVs"
, leg_position = "none"
, subtitle_text = "mCSM\nNA"
, bar_fill_values = c("#F8766D", "#00BFC4")
@ -165,7 +165,7 @@ common_bp_title = paste0("Sites <", DistCutOff, angstroms_symbol)
posC_lig = site_snp_count_bp(plotdf = df3_lig
, df_colname = "position"
, xaxis_title = "Number of nsSNPs"
, xaxis_title = "Number of SAVs"
, yaxis_title = "Number of Sites"
, subtitle_colour = "chocolate4"
, subtitle_text = ""
@ -183,7 +183,7 @@ posC_lig
if (tolower(gene)%in%geneL_ppi2){
posC_ppi2 = site_snp_count_bp(plotdf = df3_ppi2
, df_colname = "position"
, xaxis_title = "Number of nsSNPs"
, xaxis_title = "Number of SAVs"
, yaxis_title = "Number of Sites"
, subtitle_colour = "chocolate4"
, subtitle_text = ""
@ -202,7 +202,7 @@ if (tolower(gene)%in%geneL_ppi2){
if (tolower(gene)%in%geneL_na){
posC_nca = site_snp_count_bp(plotdf = df3_na
, df_colname = "position"
, xaxis_title = "Number of nsSNPs"
, xaxis_title = "Number of SAVs"
, yaxis_title = "Number of Sites"
, subtitle_colour = "chocolate4"
, subtitle_text = ""
@ -220,7 +220,7 @@ if (tolower(gene)%in%geneL_na){
#------------------------------
posC_all = site_snp_count_bp(plotdf = df3
, df_colname = "position"
, xaxis_title = "Number of nsSNPs"
, xaxis_title = "Number of SAVs"
, yaxis_title = "Number of Sites"
, subtitle_colour = "chocolate4"
, subtitle_text = "All mutations sites"
@ -238,7 +238,7 @@ consurfP = stability_count_bp(plotdf = df3
, df_colname = "consurf_outcome"
#, leg_title = "ConSurf"
#, label_categories = labels_consurf
, yaxis_title = "Number of nsSNPs"
, yaxis_title = "Number of SAVs"
, leg_position = "top"
, subtitle_text = "ConSurf"
, bar_fill_values = consurf_colours_no_isd # from globals
@ -267,7 +267,7 @@ duetP = stability_count_bp(plotdf = df3
, df_colname = "duet_outcome"
, leg_title = "mCSM-DUET"
#, label_categories = labels_duet
, yaxis_title = "Number of nsSNPs"
, yaxis_title = "Number of SAVs"
, leg_position = "none"
, subtitle_text = "mCSM-DUET"
, bar_fill_values = c("#F8766D", "#00BFC4")
@ -336,7 +336,7 @@ proveanP = stability_count_bp(plotdf = df3
, df_colname = "provean_outcome"
#, leg_title = "PROVEAN"
#, label_categories = labels_provean
, yaxis_title = "Number of nsSNPs"
, yaxis_title = "Number of SAVs"
, leg_position = "none" # top
, subtitle_text = "PROVEAN"
, bar_fill_values = c("#D01C8B", "#F1B6DA") # light pink and deep

10
scripts/plotting/plotting_thesis/pnca/lineage_bp_dist.R
View file

@ -41,7 +41,7 @@ my_yals = 8 # y axis label size
my_lls = 8 # legend label size
d_lab_size = 2.3
#===============================
# lineage sample and SNP count
# lineage sample and SAV count
#===============================
lin_countP = lin_count_bp(lf_data = lineage_dfL[['lin_lf']]
, all_lineages = F
@ -58,7 +58,7 @@ lin_countP = lin_count_bp(lf_data = lineage_dfL[['lin_lf']]
, my_xals = my_xals # x axis label size
, my_yals = my_yals # y axis label size
, my_lls = my_lls # legend label size
, bar_col_labels = c("nsSNPs", "Total Samples")
, bar_col_labels = c("SAVs", "Total Samples")
, bar_col_values = c("grey50", "gray75")
, bar_leg_name = ""
, leg_location = "top"
@ -68,7 +68,7 @@ lin_countP = lin_count_bp(lf_data = lineage_dfL[['lin_lf']]
)
lin_countP
#===============================
# lineage SNP diversity count
# lineage SAV diversity count
#===============================
lin_diversityP = lin_count_bp_diversity(lf_data = lineage_dfL[['lin_wf']]
, x_categ = "sel_lineages"
@ -87,8 +87,8 @@ lin_diversityP = lin_count_bp_diversity(lf_data = lineage_dfL[['lin_wf']]
, y_log10 = F
, y_scale_percent = F
, leg_location = "top"
, y_label = "Percent" #"SNP diversity"
, bp_plot_title = "nsSNP diversity"
, y_label = "Percent" #"SAV diversity"
, bp_plot_title = "SAV diversity"
, title_colour = "black" #"chocolate4"
, subtitle_text = NULL
, sts = 10