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

generated pncA plot for poster for ps_combined

Browse source
This commit is contained in:
Tanushree Tunstall 2021-07-07 11:38:07 +01:00
parent cb3a0f71da
commit 59a1213f65
3 changed files with 37 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

31
scripts/plotting/ps_plots_combined.R
View file

@ -7,14 +7,15 @@
# Installing and loading required packages
##########################################################
getwd()
setwd("~/git/LSHTM_analysis/scripts/plotting/")
setwd("~/git/LSHTM_analysis/scripts/plotting")
getwd()
source("Header_TT.R")
library(ggplot2)
library(data.table)
#source("combining_dfs_plotting.R")
source("../functions/bp_subcolours.R")
#source("../functions/bp_subcolours.R")
source("get_plotting_dfs.R")
source("subcols_axis.R")
###########################
@ -199,7 +200,7 @@ p1 = g1 +
labs(title = ""
#, size = 100
#, x = "Wild-type position"
, y = "AF(%)")
, y = "MAF(%)")
p1
#=================
@ -239,7 +240,7 @@ p2
#============================
# combined plot 1: UNlabelled
#============================
ps_combined = "af_or_combined_PS.svg"
ps_combined = "af_or_combined_PS_v2.svg"
plot_ps_combined = paste0(plotdir,"/", ps_combined)
cat("combined plot Unlabelled:", plot_ps_combined)
@ -253,7 +254,7 @@ dev.off()
#============================
# combined plot 2: labelled
#============================
ps_combined_labelled = "af_or_combined_PS_labelled.svg"
ps_combined_labelled = "af_or_combined_PS_labelled_v2.svg"
plot_ps_combined_labelled = paste0(plotdir,"/", ps_combined_labelled)
cat("combined plot Labelled:", plot_ps_combined_labelled)
@ -267,3 +268,23 @@ OutPlot_combined_labelled = cowplot::plot_grid(p1, p2, p3
, hjust = -0.4)
OutPlot_combined_labelled
dev.off()
#============================
# combined plot 2: labelled
# ISMB poster July 2021
#============================
ps_combined_labelled_poster = "af_or_combined_PS_labelled_v2_poster.svg"
plot_ps_combined_labelled_poster = paste0(plotdir,"/", ps_combined_labelled_poster)
cat("combined plot Labelled:", plot_ps_combined_labelled_poster)
svg(plot_ps_combined_labelled_poster , width = 26, height = 8)
OutPlot_combined_labelled_poster = cowplot::plot_grid(p2, p3
, ncol = 1
#, labels = c("(a)", "(b)", "(c)")
, labels = "AUTO"
, label_size = 25
, align = 'hv'
, hjust = -0.4)
OutPlot_combined_labelled_poster
dev.off()