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

4
scripts/functions/bp_subcolours.R
View file

@ -68,7 +68,7 @@ bp_stability_hmap <- function(plotdf = merged_df3
# Build data with colours
# ~ ligand distance
#=========================
plotdf = generate_distance_colour_map(plotdf, yvar_colname = stability_colname, debug=TRUE)
plotdf = generate_distance_colour_map(plotdf, debug=TRUE)
# order the df by position and ensure it is a factor
plotdf = plotdf[order(plotdf[[xvar_colname]]), ]
@ -131,7 +131,7 @@ bp_stability_hmap <- function(plotdf = merged_df3
labs(title = p_title
, x = my_xlab
, y = my_ylab),
generate_distance_legend(plotdf, yvar_colname = stability_colname),
generate_distance_legend(plotdf),
ncol = 2,
#align = "hv",
rel_widths = c(9/10, 0.4/10)

1
scripts/functions/generate_distance_colour_map.R
View file

@ -55,7 +55,6 @@ generate_distance_colour_map = function(plot_df,
}
generate_distance_legend = function(plot_df,
yvar_colname,
xvar_colname = 'position',
lig_dist_colname = "ligand_distance",
legend_title = "Ligand\nDistance"

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))