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

some stuff

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-12 10:03:32 +01:00
parent 365c322953
commit c6a720770d
4 changed files with 13 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

4
scripts/functions/wideP_consurf3.R
View file

@ -27,7 +27,7 @@ wideP_consurf3 <- function(plot_df
, lower_EB_colname = "consurf_ci_lower"
, plot_type = "point" # default is point
, point_colours = consurf_bp_colours
, point_colours
, p_size = 2
, leg_title1 = ""
, leg_labels = c("0": "Insufficient Data"
@ -328,7 +328,7 @@ wideP_consurf3 <- function(plot_df
g1_leg = g1_leg + geom_bar(aes_string(fill = sprintf("factor(%s)"
, yvar_colourN_colname)))
g1_leg = g1_leg + scale_fill_manual(values = consurf_bp_colours , name = leg_title1)
g1_leg = g1_leg + scale_fill_manual(values = point_colours , name = leg_title1)
g1_leg
legend1 = get_legend(g1_leg)