finding seq discrepancy in MSA for embb

This commit is contained in:
Tanushree Tunstall 2022-01-17 19:11:10 +00:00
parent af04c69d66
commit 68a092037b
4 changed files with 36 additions and 9 deletions

View file

@ -195,10 +195,10 @@ LogoPlotSnps <- function(plot_df
cat('\nDone: p0')
# further customisation
mut_logo_p <<- p0 + theme(legend.position = leg_pos
mut_logo_p = p0 + theme(legend.position = leg_pos
, legend.direction = leg_dir
#, legend.title = element_blank()
, legend.title = element_text(size = y_tts
, legend.title = element_text(size = leg_tts
, colour = ytt_col)
, legend.text = element_text(size = leg_ts)
@ -246,7 +246,7 @@ LogoPlotSnps <- function(plot_df
cat('\nDone: p1')
# further customisation
wt_logo_p <<- p1 +
wt_logo_p = p1 +
theme(legend.position = "none"
, legend.direction = leg_dir