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

12
scripts/functions/logoP_or.R
View file

@ -250,8 +250,16 @@ LogoPlotCustomH <- function(plot_df
#scale_x_discrete(x_lab, labels=factor(unique_colour_map$position)) +
scale_color_manual(values=unique_colour_map$ligD_colours) +
scale_fill_manual(values=unique_colour_map$ligD_colours) +
labs(y = NULL), NULL,
position_annotation(plot_df, bg=theme_bgc),
labs(y = NULL),
NULL,
position_annotation(plot_df,
bg = theme_bgc,
aa_pos_drug=aa_pos_drug,
active_aa_pos=active_aa_pos,
aa_pos_lig1=aa_pos_lig1,
aa_pos_lig2=aa_pos_lig2,
aa_pos_lig3=aa_pos_lig3
),
ncol=1, align='v', rel_heights = c(16,0,1,0,1)
)