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

bugfixes

Browse source
This commit is contained in:
Tanushree Tunstall 2023-02-27 20:02:10 +00:00
parent a405cd8035
commit 1c616eeb71
7 changed files with 77 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files

19
scripts/plotting/plotting_thesis/thesis-figs-katg.R
View file

@ -165,7 +165,7 @@ print(paste0("Plotting LOW Rows: ", nrow(small_df3)))
logo_p_snps_low = LogoPlotSnps(
mutable_df3,
y_lab="",
y_lab="SAV Diversity",
aa_pos_drug=aa_pos_drug,
active_aa_pos=active_aa_pos,
aa_pos_lig1=aa_pos_lig1,
@ -195,7 +195,7 @@ logo_or_low = LogoPlotCustomH(
lig3_colour = tile_map$tile_colour[4]
)
stability_low = stab()+ annotate(geom="text", label="Position",x=0.5,y=0.025, size=3)
stability_low = stab(x_label="Wild-Type Position")
# MID
@ -205,7 +205,7 @@ print(paste0("Plotting MID Rows: ", nrow(small_df3)))
logo_p_snps_centre = LogoPlotSnps(
mutable_df3,
y_lab = "",
y_lab = "SAV Diversity",
aa_pos_drug=aa_pos_drug,
active_aa_pos=active_aa_pos,
aa_pos_lig1=aa_pos_lig1,
@ -244,7 +244,7 @@ print(paste0("Plotting HIGH Rows: ", nrow(small_df3)))
logo_p_snps_high = LogoPlotSnps(
mutable_df3,
y_lab="" ,
y_lab="SAV Diversity" ,
aa_pos_drug=aa_pos_drug,
active_aa_pos=active_aa_pos,
aa_pos_lig1=aa_pos_lig1,
@ -254,7 +254,7 @@ logo_p_snps_high = LogoPlotSnps(
lig1_colour = tile_map$tile_colour[2],
lig2_colour = tile_map$tile_colour[3],
lig3_colour = tile_map$tile_colour[4]
)+ annotate(geom="text", label="Position",x=0.5,y=0.025, size=3)
)+ annotate(geom="text", label="Wild-Type Position",x=0.5,y=0.025, size=3)
logo_or_high = LogoPlotCustomH(
small_df3,
@ -271,7 +271,7 @@ logo_or_high = LogoPlotCustomH(
lig1_colour = tile_map$tile_colour[2],
lig2_colour = tile_map$tile_colour[3],
lig3_colour = tile_map$tile_colour[4]
)+ annotate(geom="text", label="Position",x=0.5,y=0.025, size=3)
)+ annotate(geom="text", label="Wild-Type Position",x=0.5,y=0.025, size=3)
stability_high = stab()
@ -298,7 +298,7 @@ stability_high_reorder = bp_stability_hmap(
lig2_colour = tile_map$tile_colour[3],
lig3_colour = tile_map$tile_colour[4]
)+ annotate(geom="text", label="Position",x=0.5,y=0.025, size=3)
)+ annotate(geom="text", label="Wild-Type Position",x=0.5,y=0.025, size=3)
stability_centre_reorder = bp_stability_hmap(
snpcount_low_high_df,
reorder_position = T,
@ -340,8 +340,9 @@ stability_low_reorder = bp_stability_hmap(
drug_colour = tile_map$tile_colour[1],
lig1_colour = tile_map$tile_colour[2],
lig2_colour = tile_map$tile_colour[3],
lig3_colour = tile_map$tile_colour[4]
lig3_colour = tile_map$tile_colour[4],
x_label="Wild-Type Position"
)
jpeg(paste0(outdir,"katg_average_stability-sorted.jpeg"), height = 6, width=11.5, unit="in",res=300)