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

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

@ -9,7 +9,9 @@
source("~/git/LSHTM_analysis/config/alr.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/alr/"
# add "pos_count" position count column
merged_df3=merged_df3 %>% dplyr::add_count(position)
@ -341,7 +343,7 @@ stability_low_reorder = bp_stability_hmap(
)
png(paste0(outdir,"alr_average_stability-sorted.png"), height = 6, width=11.5, unit="in",res=300)
jpeg(paste0(outdir,"alr_average_stability-sorted.jpeg"), height = 6, 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_reorder, stability_centre_reorder, stability_low_reorder,ncol=1),
@ -350,7 +352,7 @@ cowplot::plot_grid(
)
dev.off()
png(paste0(outdir,"alr_average_stability-unsorted.png"), height = 6, width=11.5, unit="in",res=300)
jpeg(paste0(outdir,"alr_average_stability-unsorted.jpeg"), height = 6, 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),
@ -359,7 +361,7 @@ cowplot::plot_grid(
)
dev.off()
png(paste0(outdir,"alr_snp.png"), height = 6, width=11.5, unit="in",res=300)
jpeg(paste0(outdir,"alr_snp.jpeg"), height = 6, 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'),
@ -368,7 +370,7 @@ cowplot::plot_grid(
)
dev.off()
png(paste0(outdir,"alr_or.png"), height = 6, width=11.5, unit="in",res=300)
jpeg(paste0(outdir,"alr_or.jpeg"), height = 6, 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'),