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

lots of per-plot configs

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-22 21:56:13 +01:00
parent 13999a477d
commit 04253b961f
36 changed files with 5121 additions and 540 deletions
Download patch file Download diff file Expand all files Collapse all files

18
scripts/functions/corr_plot_data.R
View file

@ -7,9 +7,6 @@
# LigDist_colname #from globals: plotting_globals.R
# ppi2Dist_colname #from globals: plotting_globals.R
# naDist_colname #from globals: plotting_globals.R
geneL_normal = c("pnca")
geneL_na = c("gid", "rpob")
geneL_ppi2 = c("alr", "embb", "katg", "rpob")
corr_data_extract <- function(df
, gene
@ -75,11 +72,24 @@ corr_data_extract <- function(df
if (tolower(gene)%in%geneL_na){
colnames_to_extract = c(common_colnames,"mcsm_na_affinity", naDist_colname)
display_colnames = c(display_common_colnames, "mCSM-NA", "NCA-Dist")
display_colnames = c(display_common_colnames, "mCSM-NA", "NA-Dist")
corr_df = df[,colnames_to_extract]
colnames(corr_df) = display_colnames
}
# SPECIAL case for rpob as it exists in both ppi and na
if (tolower(gene)%in%c("rpob")){
colnames_to_extract = c(common_colnames
, "mcsm_ppi2_affinity", ppi2Dist_colname
, "mcsm_na_affinity", naDist_colname)
display_colnames = c(display_common_colnames
,"mCSM-PPI2", "PPI-Dist"
,"mCSM-NA", "NA-Dist" )
corr_df = df[,colnames_to_extract]
colnames(corr_df) = display_colnames
}
# [optional] arg: extract_scaled_cols
if (extract_scaled_cols){
cat("\nExtracting scaled columns as well...\n")