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

renamed 2 to _v2

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-22 11:41:42 +01:00
parent c9d7ea9fad
commit 802d6f8495
18 changed files with 761 additions and 976 deletions
Download patch file Download diff file Expand all files Collapse all files

35
scripts/plotting/plotting_thesis/basic_barplots_layout_v2.R
View file

@ -10,8 +10,9 @@ mmLigP
posC_lig
ppi2P
posC_ppi2
peP
sensP
peP
#========================
# Common title settings
#=========================
@ -157,9 +158,9 @@ ppi2_affT = ggdraw() +
###########################################################
p2 = cowplot::plot_grid(cowplot::plot_grid(ppi2_affT, common_legend_outcome, nrow=2),
cowplot::plot_grid(ppi2P, posC_ppi2
, nrow = 1
, rel_widths = c(1.2,1.8)
, align = "h"),
, nrow = 1
, rel_widths = c(1.2,1.8)
, align = "h"),
nrow = 2,
rel_heights = c(1,8)
)
@ -184,7 +185,7 @@ p3 = cowplot::plot_grid(cowplot::plot_grid(peT_allT, nrow = 2
align = "v",
axis = "lr",
rel_heights = c(1,8)
),
),
rel_heights = c(1,18),
nrow = 2,axis = "lr")
p3
@ -207,7 +208,7 @@ cowplot::plot_grid(p1, p2, p3
, label_size = 12
, rel_widths = c(3,2,2)
#, rel_heights = c(1)
)
)
dev.off()
##################################################
@ -234,8 +235,8 @@ h = 3
# dev.off()
conCLP = paste0(outdir_images
,tolower(gene)
,"_consurf_BP.png")
,tolower(gene)
,"_consurf_BP.png")
print(paste0("plot filename:", conCLP))
png(conCLP, units = "in", width = w, height = h, res = 300 )
@ -243,15 +244,27 @@ consurfP
dev.off()
#================================
# Sensitivity numbers: geom_tile
# Sensitivity mutation numbers: geom_tile
#================================
sensCLP = paste0(outdir_images
,tolower(gene)
,"_sensN_tile.png")
,tolower(gene)
,"_sensN_tile.png")
print(paste0("plot filename:", sensCLP))
png(sensCLP, units = "in", width = 1, height = 1, res = 300 )
sensP
dev.off()
#================================
# Sensitivity SITE numbers: geom_tile
#================================
sens_siteCLP = paste0(outdir_images
,tolower(gene)
,"_sens_siteC_tile.png")
print(paste0("plot filename:", sens_siteCLP))
png(sens_siteCLP, units = "in", width = 1, height = 1, res = 300 )
sens_siteP
dev.off()
###########################################################