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

various stuff

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-09 19:42:20 +01:00
parent 5cbaef3d36
commit 415d05ab6e
3 changed files with 99 additions and 76 deletions
Download patch file Download diff file Expand all files Collapse all files

4
scripts/functions/wideP_consurf.R
View file

@ -27,7 +27,7 @@ wideP_consurf2 <- function(plot_df
, lower_EB_colname = "consurf_ci_lower"
, plot_type = "point" # default is point
, point_colours
, point_colours = consurf_bp_colours
, p_size = 2
, leg_title1 = ""
, leg_labels = c("0": "Insufficient Data"
@ -321,7 +321,7 @@ wideP_consurf2 <- 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_palette1 , name = leg_title1)
g1_leg = g1_leg + scale_fill_manual(values = consurf_bp_colours , name = leg_title1)
g1_leg
legend1 = get_legend(g1_leg)