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

lineage dist plots combined generated

Browse source 
Please enter the commit message for your changes. Lines starting
This commit is contained in:
Tanushree Tunstall 2020-09-09 13:18:57 +01:00
parent 98cd8a74e8
commit f7b55d035a
2 changed files with 27 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

19
scripts/plotting/lineage_dist_PS.R
View file

@ -1,8 +1,4 @@
#!/usr/bin/env Rscript
getwd()
setwd("~/git/LSHTM_analysis/scripts/plotting/")
getwd()
#!/usr/bin/env Rscript
#########################################################
# TASK: Lineage dist plots: ggridges
@ -14,7 +10,12 @@ getwd()
##########################################################
# Installing and loading required packages
##########################################################
getwd()
setwd("~/git/LSHTM_analysis/scripts/plotting/")
getwd()
source("Header_TT.R")
library(ggridges)
source("combining_dfs_plotting.R")
# PS combined:
# 1) merged_df2
@ -273,9 +274,9 @@ p2 = ggplot(df_dr, aes(x = duet_scaled
, axis.ticks.y = element_blank()
, plot.title = element_blank()
, strip.text = element_text(size = my_als)
#, legend.text = element_text(size = 10)
#, legend.title = element_text(size = my_als)
, legend.position = "none"
, legend.text = element_text(size = 10)
, legend.title = element_text(size = my_als)
#, legend.position = "none"
)
print(p2)
@ -288,7 +289,7 @@ print(p2)
lineage_dist_combined = "lineage_dist_combined_PS.svg"
plot_lineage_dist_combined = paste0(plotdir,"/", lineage_dist_combined)
svg(plot_lineage_dist_combined, width = 16, height = 12)
svg(plot_lineage_dist_combined, width = 12, height = 6)
printFile = cowplot::plot_grid(p1, p2
, label_size = my_als+10)