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

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

@ -71,20 +71,17 @@ heat_bar_legend = get_legend(
tile_colour_map = c("RFP" = "#00ff00")
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)
)
@ -260,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)
logo_or_high = LogoPlotCustomH(
small_df3,
@ -277,10 +274,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_low = stab(my_xaxls = 4)
stability_low = stab(my_xaxls = 4)+ annotate(geom="text", label="Position",x=0.5,y=0.025, size=3)
#### "sorted" stability plots ####
# do stability plots for later assembly
@ -304,7 +301,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,