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

checked logo_multiple_muts.R with the new sourcing script for data

Browse source
This commit is contained in:
Tanushree Tunstall 2021-06-24 16:43:23 +01:00
parent 71d874e350
commit e75cfd2665
6 changed files with 120 additions and 296 deletions
Download patch file Download diff file Expand all files Collapse all files

5
scripts/plotting/logo_plot.R
View file

@ -77,7 +77,7 @@ dev.off()
cat("Logo plot with log10 OR as y axis:", plot_logo_logOR)
svg(plot_logo_logOR, width = 30 , height = 6)
ggseqlogo(wide_df_logor_m
logo_logOR = ggseqlogo(wide_df_logor_m
, method = "custom"
, seq_type="aa") + ylab("my custom height") +
theme(legend.position = "bottom"
@ -97,7 +97,10 @@ ggseqlogo(wide_df_logor_m
, limits = factor(1:length(position_logor)))+
ylab("Log (Odds Ratio)") +
scale_y_continuous(limits = c(0, 9))
print(logo_logOR)
dev.off()
######################################################################=
# End of script
######################################################################=