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

some stuff

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-12 10:03:32 +01:00
parent 365c322953
commit c6a720770d
4 changed files with 13 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

4
scripts/functions/logoP_snp.R
View file

@ -305,7 +305,8 @@ LogoPlotSnps <- function(plot_df
, panel.grid=element_blank()
, panel.background = element_rect(fill = theme_bgc, colour=NA)
) +
scale_x_discrete(x_lab, labels=factor(unique_colour_map$position)) +
scale_x_discrete(x_lab, labels=unique_colour_map$position) +
#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)
@ -313,6 +314,7 @@ LogoPlotSnps <- function(plot_df
, position_annotation(plot_df, bg=theme_bgc)
, ncol=1
, align = "v"
, axis='lr'
, rel_heights = c(7/10, 2/7,1/7, -0.1, 0.5/7))
#------------------
# Wild logo plot