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

figure fixup

Browse source
This commit is contained in:
Tanushree Tunstall 2023-02-21 21:01:00 +00:00
parent c1441dc0d6
commit c2d6eb49ea
6 changed files with 35 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

9
scripts/plotting/plotting_thesis/thesis-figs-embb.R
View file

@ -9,7 +9,8 @@
source("~/git/LSHTM_analysis/config/embb.R")
source("~/git/LSHTM_analysis/scripts/plotting/get_plotting_dfs.R")
outdir="/home/pub/Work/LSHTM/Thesis_Plots/"
#outdir="/home/pub/Work/LSHTM/Thesis_Plots/"
outdir="~/git/Writing/thesis/tex/images-corrected/embb/"
# add "pos_count" position count column
merged_df3=merged_df3 %>% dplyr::add_count(position)
@ -238,7 +239,7 @@ logo_or_high = LogoPlotCustomH(small_df3,
aa_pos_lig3=aa_pos_lig3
)
png(paste0(outdir,"embb_average_stability.png"), height = 8.25, width=11.5, unit="in",res=300)
jpeg(paste0(outdir,"embb_average_stability.jpeg"), height = 8.25, width=11.5, unit="in",res=300)
cowplot::plot_grid(
cowplot::plot_grid(heat_bar_legend, tile_legend, snp_tile_legend, nrow=1),
cowplot::plot_grid(stability_high, stability_centre, stability_low,ncol=1),
@ -247,7 +248,7 @@ cowplot::plot_grid(
)
dev.off()
png(paste0(outdir,"embb_snp.png"), height = 8.25, width=11.5, unit="in",res=300)
jpeg(paste0(outdir,"embb_snp.jpeg"), height = 8.25, width=11.5, unit="in",res=300)
cowplot::plot_grid(
cowplot::plot_grid(heat_bar_legend, tile_legend, logoplot_chemistry_legend, nrow=1),
cowplot::plot_grid(logo_p_snps_low, logo_p_snps_centre, logo_p_snps_high, ncol=1, align='hv'),
@ -256,7 +257,7 @@ cowplot::plot_grid(
)
dev.off()
png(paste0(outdir,"embb_or.png"), height = 8.25, width=11.5, unit="in",res=300)
jpeg(paste0(outdir,"embb_or.jpeg"), height = 8.25, width=11.5, unit="in",res=300)
cowplot::plot_grid(
cowplot::plot_grid(heat_bar_legend, tile_legend, logoplot_chemistry_legend, nrow=1),
cowplot::plot_grid(logo_or_low, logo_or_centre, logo_or_high, ncol=1, align='hv'),