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

replaced old lineage barplot with count and diversity combined plots sourced from function

Browse source
This commit is contained in:
Tanushree Tunstall 2021-09-07 09:27:47 +01:00
parent 50b89cdcd7
commit 3cee341170
7 changed files with 217 additions and 366 deletions
Download patch file Download diff file Expand all files Collapse all files

12
scripts/functions/bp_lineage.R
View file

@ -20,8 +20,8 @@ lin_count_bp <- function( lf_data
, my_xals = 22 # x axis label size
, my_yals = 22 # y axis label size
, my_lls = 22 # legend label size
, bar_col_labels = c("Mutations", "Total Samples")
, bar_col_values = c("grey50", "gray75")
, bar_col_labels = ""
, bar_col_values = ""
, bar_leg_name = ""
, leg_location = "top"
, y_log10 = FALSE
@ -68,20 +68,18 @@ lin_count_bp <- function( lf_data
, y = y_label
, colour = "black")
if (y_log10){
OutPlot = OutPlot +
scale_y_continuous(trans = "log10"
, labels = trans_format("log10", math_format(10^.x) ) )
}
}
if (y_scale_percent){
OutPlot = OutPlot +
#scale_y_continuous(labels = scales::percent_format(accuracy = 1)) +
scale_y_continuous(labels = scales::percent) +
scale_y_continuous(labels = scales::percent_format(accuracy = 1)) +
#scale_y_continuous(labels = scales::percent) +
labs(title = ""
, x = ""