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

lineage labels gsub now redundant in combining_dfs_plotting.R

Browse source
This commit is contained in:
Tanushree Tunstall 2022-05-05 19:31:00 +01:00
parent d61d11e020
commit 39566ceadd
1 changed files with 25 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

46
scripts/functions/combining_dfs_plotting.R
View file

@ -204,29 +204,33 @@ combining_dfs_plotting <- function( my_df_u
#----------------------- #-----------------------
# lineage labels # lineage labels
#----------------------- #-----------------------
merged_df2$lineage_labels = gsub("lineage", "L", merged_df2$lineage) # merged_df2$lineage_labels = gsub("lineage", "L", merged_df2$lineage)
merged_df2$lineage_labels = factor(merged_df2$lineage_labels, c("L1" # Already solved upstream where lineage now contains L prefix
, "L2" # merged_df2$lineage_labels = factor(merged_df2$lineage_labels, c("L1"
, "L3" # , "L2"
, "L4" # , "L3"
, "L5" # , "L4"
, "L6" # , "L5"
, "L7" # , "L6"
, "LBOV" # , "L7"
, "L1;L2" # , "LBOV"
, "L1;L3" # , "L1;L2"
, "L1;L4" # , "L1;L3"
, "L2;L3" # , "L1;L4"
, "L2;L3;L4" # , "L2;L3"
, "L2;L4" # , "L2;L3;L4"
, "L2;L6" # , "L2;L4"
, "L2;LBOV" # , "L2;L6"
, "L3;L4" # , "L2;LBOV"
, "L4;L6" # , "L3;L4"
, "L4;L7" # , "L4;L6"
, "")) # , "L4;L7"
# , ""))
merged_df2$lineage_labels = merged_df2$lineage
#merged_df2$lineage_labels = as.factor(merged_df2$lineage_labels)
#merged_df2$lineage_labels = factor(merged_df2$lineage_labels)
#================================================================= #=================================================================
# Merge 2: merged_df3 # Merge 2: merged_df3