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

colour changes

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-13 15:40:25 +01:00
parent c6a720770d
commit c8f3ddf892
5 changed files with 34 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

9
scripts/functions/generate_distance_colour_map.R
View file

@ -2,7 +2,8 @@
generate_distance_colour_map = function(plot_df,
xvar_colname = "position",
lig_dist_colname = "ligand_distance",
lig_dist_colours = c("green", "yellow", "orange", "red"),
#lig_dist_colours = c("green", "yellow", "orange", "red"),
lig_dist_colours = c("tan", "black"),
debug = TRUE
)
{
@ -74,9 +75,9 @@ generate_distance_legend = function(plot_df,
geom_tile(aes(fill = .data[[lig_dist_colname]])
, colour = "white") +
scale_fill_gradient2(midpoint = lig_mean
, low = "green"
, mid = "yellow"
, high = "red"
, low = "tan"
, mid = "grey50"
, high = "black"
, breaks = labels
, limits = c(lig_min, lig_max)
, labels = labelsD