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

lineage_dist: add all_lineages feature

Browse source
This commit is contained in:
Tanushree Tunstall 2022-03-06 13:31:43 +00:00
parent 8fa585417e
commit 56a6aa8c7e
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
scripts/functions/lineage_dist.R
View file

@ -13,6 +13,8 @@ lineage_distP <- function(plotdf
, x_axis = "duet_scaled"
, y_axis = "lineage_labels"
, x_lab = "DUET"
, all_lineages = F
, use_lineages = c("L1", "L2", "L3", "L4")
, with_facet = F
, facet_wrap_var = ""
, fill_categ = "mutation_info_labels"
@ -29,6 +31,10 @@ lineage_distP <- function(plotdf
{
if(!all_lineages){
plotdf = plotdf[plotdf[[y_axis]]%in%use_lineages,]
}
LinDistP = ggplot(plotdf, aes_string(x = x_axis
, y = y_axis))+