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

added consurf_colours_no_isd to ensure consurf plots are not messed up in the absesnce of 0 categ

Browse source
This commit is contained in:
Tanushree Tunstall 2022-09-05 16:01:21 +01:00
parent 2cec743ae0
commit f949592dd8
2 changed files with 17 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

13
scripts/Header_TT.R
View file

@ -249,6 +249,19 @@ consurf_colours = c(
, "9" = rgb(0.63,0.16,0.37)
)
consurf_colours_no_isd = c(
#"0" = rgb(1.00,1.00,0.59)
"1" = rgb(0.04,0.49,0.51)
, "2" = rgb(0.29,0.69,0.75)
, "3" = rgb(0.65,0.86,0.90)
, "4" = rgb(0.84,0.94,0.94)
, "5" = rgb(1.00,1.00,1.00)
, "6" = rgb(0.98,0.92,0.96)
, "7" = rgb(0.98,0.78,0.86)
, "8" = rgb(0.94,0.49,0.67)
, "9" = rgb(0.63,0.16,0.37)
)
##################################################
# Function name clashes with plyr and dplyr

5
scripts/plotting/plotting_thesis/pnca/basic_barplots_pnca.R
View file

@ -231,6 +231,9 @@ posC_all = site_snp_count_bp(plotdf = df3
, axis_label_size = axis_label_size)
posC_all
##################################################################
#consurf_colours
consurf_colours_no_isd
consurfP = stability_count_bp(plotdf = df3
, df_colname = "consurf_outcome"
#, leg_title = "ConSurf"
@ -238,7 +241,7 @@ consurfP = stability_count_bp(plotdf = df3
, yaxis_title = "Number of nsSNPs"
, leg_position = "top"
, subtitle_text = "ConSurf"
, bar_fill_values = consurf_colours # from globals
, bar_fill_values = consurf_colours_no_isd # from globals
, subtitle_colour= "black"
, sts = sts
, lts = lts