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

saving before commiting

Browse source
This commit is contained in:
Tanushree Tunstall 2022-01-31 17:36:00 +00:00
parent ea931b59f3
commit a287b801f7
2 changed files with 12 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

9
scripts/functions/corr_plot_df.R
View file

@ -7,6 +7,7 @@
# merged_df3 or merged_df2!?
# gene: [sanity check]
# drug: relates to a column name that will need to extracted
# ligand_dist_colname = LigDist_colname (variable from plotting_globals()
#colnames_to_extract = c("mutationinformation"
# , "duet_affinity_change")
@ -18,11 +19,11 @@
# TO DO: SHINY
#1) Corr type?
#2)
##################################################################
corr_data_extract <- function(corr_plot_df
#, gene_name = gene
, drug_name = drug
, ligand_dist_colname = LigDist_colname
, colnames_to_extract
, colnames_display_key
, extract_scaled_cols = F){
@ -44,7 +45,7 @@ corr_data_extract <- function(corr_plot_df
, "duet_stability_change"
, "ligand_affinity_change"
#, "ligand_distance"
, LigDist_colname
, ligand_dist_colname
, "ddg_foldx"
, "deepddg"
, "asa"
@ -78,7 +79,7 @@ corr_data_extract <- function(corr_plot_df
colnames_display_key = c(duet_stability_change = "DUET"
, ligand_affinity_change = "mCSM-lig"
#, ligand_distance = "ligand_distance"
#, LigDist_colname = "ligand_distance"
#, ligand_dist_colname = "ligand_distance"
, ddg_foldx = "FoldX"
, deepddg = "DeepDDG"
, asa = "ASA"
@ -115,7 +116,7 @@ corr_data_extract <- function(corr_plot_df
,"\nRenaming successful")
cat("\nSneak peak...")
#print(head(corr_df))
print(head(corr_df))
# Move drug column to the end
last_col = colnames(corr_df[ncol(corr_df)])