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

add consurf-only scripts

Browse source
This commit is contained in:
Tanushree Tunstall 2023-02-25 17:08:22 +00:00
parent 9bc18169cf
commit a405cd8035
11 changed files with 339 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

8
scripts/plotting/plotting_thesis/thesis-figs-gid.R
View file

@ -78,9 +78,9 @@ tile_legend=get_legend(
legend.direction="horizontal",
legend.text = element_text(size=10),
legend.key.size = unit(10, "pt")) +
scale_colour_manual(name="Active Site"
scale_colour_manual(name="Active Site:"
, values=tile_colour_map) +
scale_fill_manual(name="Active Site"
scale_fill_manual(name="Active Site:"
, values = tile_colour_map)
)
@ -249,7 +249,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,
@ -265,7 +265,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)
stability_high = stab()+ annotate(geom="text", label="Position",x=0.5,y=0.025, size=3)