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

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

@ -70,21 +70,18 @@ tile_colour_map = c("STR" = "green",
,"AMP" = "#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
, values=tile_colour_map) +
scale_fill_manual(name=NULL
#,values=tile_map$tile_colour
, values = tile_colour_map)
ggplot(tile_map, aes(factor(tile),y=0
, colour=tile_colour
, fill=tile_colour))+
geom_tile() +
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="Active Site"
, values = tile_colour_map)
)
# SAV Tile Red/Blue Legend
@ -271,7 +268,7 @@ logo_or_high = LogoPlotCustomH(
)
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