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

added rpob plot scripts

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-29 23:26:43 +01:00
parent 8f97ab7cc8
commit 7c2e4b898e
8 changed files with 109 additions and 48 deletions
Download patch file Download diff file Expand all files Collapse all files

11
scripts/functions/corr_plot_data.R
View file

@ -45,7 +45,7 @@ corr_data_extract <- function(df
)
display_common_colnames = c( drug, "dst_mode"
, "DUET" , "FoldX" , "DeepDDG", "Dynamut2"
, "mCSM-DUET" , "FoldX" , "DeepDDG", "Dynamut2"
, "ASA" , "RSA" , "KD" , "RD"
# previously MAF
, "Log10(MAF)" , "Log10(OR)" , "-Log10(P)"
@ -80,12 +80,13 @@ corr_data_extract <- function(df
# 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)
, "mcsm_na_affinity", naDist_colname
, "mcsm_ppi2_affinity", ppi2Dist_colname)
display_colnames = c(display_common_colnames
,"mCSM-PPI2", "PPI-Dist"
,"mCSM-NA", "NA-Dist" )
,"mCSM-NA", "NA-Dist"
,"mCSM-PPI2", "PPI-Dist")
corr_df = df[,colnames_to_extract]
colnames(corr_df) = display_colnames