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

tweaks to thesis figs

Browse source
This commit is contained in:
Tanushree Tunstall 2023-02-24 22:38:37 +00:00
parent e9d841d989
commit 9bc18169cf
7 changed files with 361 additions and 358 deletions
Download patch file Download diff file Expand all files Collapse all files

25
scripts/plotting/plotting_thesis/thesis-figs-alr.R
View file

@ -73,20 +73,17 @@ tile_colour_map = c("DCS" = "#00ff00"
,"PLP" = "#000080")
tile_legend=get_legend(
ggplot(tile_map, aes(factor(tile),y=0
, colour=tile_colour
, fill=tile_colour))+
geom_tile() +
theme(legend.title = element_blank(),
legend.direction="horizontal",
legend.text = element_text(size=10),
legend.key.size = unit(10, "pt")) +
scale_colour_manual(name=NULL
#, values = tile_map$tile_colour
theme(
legend.direction="horizontal",
legend.text = element_text(size=10),
legend.key.size = unit(10, "pt")) +
scale_colour_manual(name="Active Site"
, values=tile_colour_map) +
scale_fill_manual(name=NULL
#,values=tile_map$tile_colour
scale_fill_manual(name="Active Site"
, values = tile_colour_map)
)
@ -198,7 +195,7 @@ logo_or_low = LogoPlotCustomH(
lig3_colour = tile_map$tile_colour[4]
)
stability_low = stab()
stability_low = stab()+ annotate(geom="text", label="Position",x=0.5,y=0.025, size=3)
# MID
@ -254,7 +251,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)
logo_or_high = LogoPlotCustomH(
small_df3,
@ -270,10 +267,10 @@ 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)
stability_high = stab()
stability_high = stab()+ annotate(geom="text", label="Position",x=0.5,y=0.025, size=3)
#### "sorted" stability plots ####
# do stability plots for later assembly
@ -297,7 +294,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)
stability_centre_reorder = bp_stability_hmap(
snpcount_low_high_df,
reorder_position = T,