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-gid.R
View file

@ -9,7 +9,8 @@
source("~/git/LSHTM_analysis/config/gid.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/gid/"
# add "pos_count" position count column
merged_df3=merged_df3 %>% dplyr::add_count(position)
@ -341,7 +342,7 @@ stability_low_reorder = bp_stability_hmap(
)
png(paste0(outdir,"gid_average_stability-sorted.png"), height = 6, width=11.5, unit="in",res=300)
jpeg(paste0(outdir,"gid_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 +351,7 @@ cowplot::plot_grid(
)
dev.off()
png(paste0(outdir,"gid_average_stability-unsorted.png"), height = 6, width=11.5, unit="in",res=300)
jpeg(paste0(outdir,"gid_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_low, stability_centre, stability_high, ncol=1),
@ -359,7 +360,7 @@ cowplot::plot_grid(
)
dev.off()
png(paste0(outdir,"gid_snp.png"), height = 6, width=11.5, unit="in",res=300)
jpeg(paste0(outdir,"gid_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 +369,7 @@ cowplot::plot_grid(
)
dev.off()
png(paste0(outdir,"gid_or.png"), height = 6, width=11.5, unit="in",res=300)
jpeg(paste0(outdir,"gid_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'),