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

plot function fixes for position tiles

Browse source
This commit is contained in:
Tanushree Tunstall 2022-09-06 17:06:01 +01:00
parent 07826fbc91
commit 23bb087ea3
3 changed files with 10 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

5
scripts/functions/logoP_or.R
View file

@ -215,11 +215,6 @@ LogoPlotCustomH <- function(plot_df
labs(y=y_lab),
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,
...
),

13
scripts/functions/logoP_snp.R
View file

@ -283,12 +283,13 @@ LogoPlotSnps <- function(plot_df
anno_bar = 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,
...)
# active_aa_pos = active_aa_pos,
# aa_pos_drug = aa_pos_drug,
# aa_pos_lig1 = aa_pos_lig1,
# aa_pos_lig2 = aa_pos_lig2,
# aa_pos_lig3 = aa_pos_lig3,
...
)
#aligned=align_plots(logo_top, logo_bottom, anno_bar, align='vh', axis='lr')
cowplot::plot_grid(

9
scripts/functions/wideP_consurf3.R
View file

@ -69,16 +69,13 @@ wideP_consurf3 <- function(plot_df
, default_gt_clr = "white"
, build_plot_df=FALSE
, debug=FALSE
, ...
){
anno_bar = position_annotation(
plot_df,
bg = panel_col,
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
)
...
)
if(missing(point_colours)){
temp_cols = colorRampPalette(c("seagreen", "sienna3"))(30)