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

18
scripts/plotting/plotting_thesis/thesis-figs-rpob.R
View file

@ -164,7 +164,7 @@ print(paste0("Plotting LOW Rows: ", nrow(small_df3)))
logo_p_snps_low = LogoPlotSnps(
mutable_df3,
y_lab="",
y_lab="SAV Diversity",
active_aa_pos=active_aa_pos,
aa_pos_drug=aa_pos_drug,
aa_pos_lig1=aa_pos_lig1,
@ -204,7 +204,7 @@ print(paste0("Plotting MID Rows: ", nrow(small_df3)))
logo_p_snps_centre = LogoPlotSnps(
mutable_df3,
y_lab = "",
y_lab = "SAV Diversity",
x_ats = 4.5,
active_aa_pos=active_aa_pos,
aa_pos_drug=aa_pos_drug,
@ -246,7 +246,7 @@ print(paste0("Plotting HIGH Rows: ", nrow(small_df3)))
logo_p_snps_high = LogoPlotSnps(
mutable_df3,
y_lab=" " ,
y_lab="SAV Diversity" ,
x_ats = 5,
active_aa_pos=active_aa_pos,
aa_pos_drug=aa_pos_drug,
@ -257,7 +257,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,
@ -274,10 +274,11 @@ 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_low = stab(my_xaxls = 4)+ annotate(geom="text", label="Position",x=0.5,y=0.025, size=3)
stability_low = stab(my_xaxls = 4,
x_label="Wild-Type Position")
#### "sorted" stability plots ####
# do stability plots for later assembly
@ -301,7 +302,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,
@ -343,7 +344,8 @@ 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"
)