diff --git a/scripts/plotting/other_plots_data.R b/scripts/plotting/other_plots_data.R index 9c54e9a..a60af1e 100644 --- a/scripts/plotting/other_plots_data.R +++ b/scripts/plotting/other_plots_data.R @@ -24,30 +24,7 @@ rm(merged_df2, merged_df2_comp, merged_df2_lig, merged_df2_comp_lig #%%%%%%%%%%%%%%%%%%%% df_ps = merged_df3 -# name tidying -df_ps$mutation_info = as.factor(df_ps$mutation_info) -df_ps$duet_outcome = as.factor(df_ps$duet_outcome) -df_ps$foldx_outcome = as.factor(df_ps$foldx_outcome) -df_ps$ligand_outcome = as.factor(df_ps$ligand_outcome) - -# check -table(df_ps$mutation_info) - -#%%%%%%%%%%%%%%%%%%% -# REASSIGNMENT: LIG -#%%%%%%%%%%%%%%%%%%%% - -df_lig = merged_df3_lig - -# name tidying -df_lig$mutation_info = as.factor(df_lig$mutation_info) -df_lig$duet_outcome = as.factor(df_lig$duet_outcome) -df_lig$ligand_outcome = as.factor(df_lig$ligand_outcome) - -# check -table(df_lig$mutation_info) - -#======================================================================== +# adding folds scaled values n = which(colnames(df_ps) == "ddg"); n # 10 my_min = min(df_ps[,n]); my_min @@ -73,6 +50,33 @@ if ( all(c1 == c2) ){ exit() } + +# name tidying +df_ps$mutation_info = as.factor(df_ps$mutation_info) +df_ps$duet_outcome = as.factor(df_ps$duet_outcome) +df_ps$foldx_outcome = as.factor(df_ps$foldx_outcome) +df_ps$ligand_outcome = as.factor(df_ps$ligand_outcome) + +# check +table(df_ps$mutation_info) + +#%%%%%%%%%%%%%%%%%%% +# REASSIGNMENT: LIG +#%%%%%%%%%%%%%%%%%%%% + +df_lig = merged_df3_lig + +# name tidying +df_lig$mutation_info = as.factor(df_lig$mutation_info) +df_lig$duet_outcome = as.factor(df_lig$duet_outcome) +df_lig$ligand_outcome = as.factor(df_lig$ligand_outcome) + +# check +table(df_lig$mutation_info) + +#======================================================================== + + #=========== # Data: ps #===========