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

added combined lineage plot

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-09 19:33:49 +01:00
parent fe292e3717
commit 94454d6fba
10 changed files with 421 additions and 190 deletions
Download patch file Download diff file Expand all files Collapse all files

2
scripts/functions/position_count_bp.R
View file

@ -95,7 +95,7 @@ site_snp_count_bp <- function (plotdf
# FIXME: should really be legend title
# but atm being using as plot title
#my_leg_title
bp_plot_title = paste0("Total SNPs: ", tot_muts
bp_plot_title = paste0("Total nsSNPs: ", tot_muts
, "\nTotal sites: ", tot_sites)
#-------------

3
scripts/functions/stability_count_bp.R
View file

@ -39,7 +39,8 @@ stability_count_bp <- function(plotdf
#OutPlot_count = ggplot(plotdf, aes(x = eval(parse(text = df_colname)))) +
OutPlot_count = ggplot(plotdf, aes_string(x = df_colname)) +
geom_bar(aes(fill = eval(parse(text = df_colname))), show.legend = TRUE) +
geom_bar(aes(fill = eval(parse(text = df_colname)))
, show.legend = TRUE) +
geom_label(stat = "count"
, aes(label = ..count..)
, color = "black"