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)