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

11
scripts/plotting/plotting_thesis/thesis-figs-katg.R
View file

@ -9,7 +9,8 @@
source("~/git/LSHTM_analysis/config/katg.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/katg/"
# add "pos_count" position count column
merged_df3=merged_df3 %>% dplyr::add_count(position)
@ -346,7 +347,7 @@ stability_low_reorder = bp_stability_hmap(
)
png(paste0(outdir,"katg_average_stability-sorted.png"), height = 6, width=11.5, unit="in",res=300)
jpeg(paste0(outdir,"katg_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),
@ -355,7 +356,7 @@ cowplot::plot_grid(
)
dev.off()
png(paste0(outdir,"katg_average_stability-unsorted.png"), height = 6, width=11.5, unit="in",res=300)
jpeg(paste0(outdir,"katg_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),
@ -364,7 +365,7 @@ cowplot::plot_grid(
)
dev.off()
png(paste0(outdir,"katg_snp.png"), height = 6, width=11.5, unit="in",res=300)
jpeg(paste0(outdir,"katg_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'),
@ -373,7 +374,7 @@ cowplot::plot_grid(
)
dev.off()
png(paste0(outdir,"katg_or.png"), height = 6, width=11.5, unit="in",res=300)
jpeg(paste0(outdir,"katg_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'),