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

oops!

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-14 12:17:36 +01:00
parent c09d7530c9
commit 6f354ab390
10 changed files with 833 additions and 285 deletions
Download patch file Download diff file Expand all files Collapse all files

8
scripts/functions/generate_distance_colour_map.R
View file

@ -3,7 +3,7 @@ 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("tan", "black"),
lig_dist_colours = c("green", "yellow", "magenta"),
debug = TRUE
)
{
@ -75,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 = "tan"
, mid = "grey50"
, high = "black"
, low = "green"
, mid = "yellow"
, high = "magenta"
, breaks = labels
, limits = c(lig_min, lig_max)
, labels = labelsD