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), labs(y=y_lab),
position_annotation(plot_df, position_annotation(plot_df,
bg = theme_bgc, 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, anno_bar = position_annotation(plot_df,
bg = theme_bgc, bg = theme_bgc,
aa_pos_drug=aa_pos_drug, # active_aa_pos = active_aa_pos,
active_aa_pos=active_aa_pos, # aa_pos_drug = aa_pos_drug,
aa_pos_lig1=aa_pos_lig1, # aa_pos_lig1 = aa_pos_lig1,
aa_pos_lig2=aa_pos_lig2, # aa_pos_lig2 = aa_pos_lig2,
aa_pos_lig3=aa_pos_lig3, # aa_pos_lig3 = aa_pos_lig3,
...) ...
)
#aligned=align_plots(logo_top, logo_bottom, anno_bar, align='vh', axis='lr') #aligned=align_plots(logo_top, logo_bottom, anno_bar, align='vh', axis='lr')
cowplot::plot_grid( cowplot::plot_grid(

9
scripts/functions/wideP_consurf3.R
View file

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