From 54b3dd9d422c3f4621fd5520b100904320839311 Mon Sep 17 00:00:00 2001 From: Tanushree Tunstall Date: Sat, 6 Aug 2022 18:48:49 +0100 Subject: [PATCH] various refactoring --- scripts/plotting/plotting_thesis/linage_dist_ens_stability.R | 3 +++ 1 file changed, 3 insertions(+) diff --git a/scripts/plotting/plotting_thesis/linage_dist_ens_stability.R b/scripts/plotting/plotting_thesis/linage_dist_ens_stability.R index 4169e68..fa90e7f 100644 --- a/scripts/plotting/plotting_thesis/linage_dist_ens_stability.R +++ b/scripts/plotting/plotting_thesis/linage_dist_ens_stability.R @@ -109,6 +109,9 @@ min(df2_plot['ens_stab_new_scaled']); max(df2_plot['ens_stab_new_scaled']) #==================== # Output Lineage plot #==================== +nsample_lin = merged_df2[merged_df2$lineage%in%c("L1", "L2", "L3", "L4"),] +cat("\nTotal no. of samples belonging to L1-l4 for", gene,":", nrow(nsample_lin) ) + linD_ens_stabP = paste0(outdir_images , tolower(gene) ,"_linD_ens_stabP.svg")