renamed 2 to _v2

scripts/functions/combining_dfs_plotting.R

@@ -33,9 +33,15 @@
 #==========================================================
 #lig_dist_colname = 'ligand_distance' or global var LigDist_colname
 #lig_dist_cutoff  =  10 or global var LigDist_cutoff
+geneL_normal  = c("pnca")
+geneL_na      = c("gid", "rpob")
+geneL_ppi2    = c("alr", "embb", "katg", "rpob")
+
+
 
 combining_dfs_plotting <- function(  my_df_u
                                    , gene_metadata
+                                   , gene # ADDED
                                    , lig_dist_colname = ''
                                    , lig_dist_cutoff = ''){
 
@@ -679,6 +685,31 @@ combining_dfs_plotting <- function(  my_df_u
   
   min( merged_df3['avg_lig_affinity_scaled']); max( merged_df3['avg_lig_affinity_scaled'])
   
+  ###################################################################
+  # Rectify pos_count column in merged_df3
+  # The one in merged_df2 is correct
+  
+  nc_pc_CHANGE = which(colnames(merged_df3)== "pos_count"); nc_pc_CHANGE
+  colnames(merged_df3)[nc_pc_CHANGE] = "df2_pos_count_all"
+  head(merged_df3$pos_count)
+  head(merged_df3$df2_pos_count_all)
+  
+  # DROP pos_count column
+  # merged_df3$pos_count <-NULL
+  merged_df3 = merged_df3[, !colnames(merged_df3)%in%c("pos_count")]
+  head(merged_df3$pos_count)
+
+  merged_df3 = merged_df3 %>% 
+    dplyr::add_count(position)
+  class(merged_df3)
+  merged_df3 = as.data.frame(merged_df3)
+  class(merged_df3)
+  nc_change = which(colnames(merged_df3) == "n")
+  colnames(merged_df3)[nc_change] <- "pos_count"
+  class(merged_df3)
+  ####################################################################
+  # ADD: distance to Nucleic acid column for na genes
+  
   
   ####################################################################
   #TODO