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

stuff

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-27 15:35:41 +01:00
parent 79b251047d
commit c6f5a446c3
6 changed files with 56 additions and 55 deletions
Download patch file Download diff file Expand all files Collapse all files

43
scripts/plotting/plotting_thesis/alr/gg_pairs_all_alr.R
View file

@ -5,7 +5,7 @@
#=======
# output
#=======
#outdir_images = paste0("~/git/Writing/thesis/images/results/", tolower(gene), "/")
outdir_images = paste0("/home/pub/Work/LSHTM/Thesis_Plots/pairs/")
#cat("plots will output to:", outdir_images)
my_gg_pairs=function(plot_df, plot_title
@ -20,28 +20,31 @@ my_gg_pairs=function(plot_df, plot_title
title="ρ",
digits=2,
justify_labels = "centre",
title_args=list(size=tt_args_size, colour="black"),#2.5
group_args=list(size=gp_args_size)#2.5
title_args=list(size=tt_args_size, colour="black")#,#2.5
#group_args=list(size=gp_args_size)#2.5
)
),
lower = list(
continuous = wrap("points",
alpha = 0.7,
size=0.125),
combo = wrap("dot",
alpha = 0.7,
size=0.125)
continuous = wrap(
"points",
alpha = 0.7,
size=0.125
),
aes(colour = factor(ifelse(dst_mode==0,
"S",
"R") ),
alpha = 0.5),
title=plot_title) +
scale_colour_manual(values = c("red", "blue")) +
scale_fill_manual(values = c("red", "blue")) #+
# theme(text = element_text(size=7,
# face="bold"))
combo = wrap(
"dot",
alpha = 0.7,
size=0.125)
),
# aes(colour = factor(ifelse(dst_mode==0,
# "S",
# "R") ),
# alpha = 0.5),
title=plot_title) #+
#
# scale_colour_manual(values = c("red", "blue")) +
# scale_fill_manual(values = c("red", "blue")) #+
# theme(text = element_text(size=7,
# face="bold"))
}
DistCutOff = 10
@ -152,7 +155,7 @@ plot_corr_df_aff = my_gg_pairs(corr_df_aff
, plot_title="Affinity estimates"
#, tt_args_size = 4
#, gp_args_size = 4
)
)
#### Combine plots #####
# #png("/home/tanu/tmp/gg_pairs_all.png", height = 6, width=11.75, unit="in",res=300)