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

various changes

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-08 16:48:40 +01:00
parent 5bdfd03443
commit 4ce2087224
3 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

12
scripts/functions/wideP_consurf.R
View file

@ -13,6 +13,11 @@
# input args
#==========================================================
wideP_consurf2 <- function(plot_df
, aa_pos_drug = NULL
, aa_pos_lig1 = NULL
, aa_pos_lig2 = NULL
, aa_pos_lig3 = NULL
, xvar_colname = "position"
, yvar_colname = "consurf_score"
, yvar_colourN_colname = "consurf_colour_rev" # num from 0-1
@ -66,20 +71,17 @@ wideP_consurf2 <- function(plot_df
# Custom 3: x-axis: geom tiles ~ active sites and ligand
, annotate_active_sites = F
, aa_pos_drug = aa_pos_drug
, drug_aa_colour = "purple"
, active_aa_pos = NULL
, active_aa_colour = "brown"
, aa_pos_lig1 = NULL
, aa_colour_lig1 = "blue"
, tpos1 = 0
, aa_pos_lig2 = NULL
, aa_colour_lig2 = "cyan"
, tpos2 = 0
, aa_pos_lig3 = NULL
, aa_colour_lig3 = "cornflowerblue"
, tpos3 = 0
@ -487,7 +489,7 @@ wideP_consurf2 <- function(plot_df
if (annotate_ligand_distance){
cat('\nOutput: Plot + distance heat-bar + other stuff')
legs = cowplot::plot_grid(legend1
, generate_distance_legend(plot_df, yvar_colname = yvar_colname)
, generate_distance_legend(plot_df)
, ncol = 1
, align = "hv"
, rel_heights = c(2/4,3/4))