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

adding legend forlogo plot

Browse source
This commit is contained in:
Tanushree Tunstall 2022-01-14 10:18:01 +00:00
parent 426a5cb0b5
commit 3b7cea3c47
4 changed files with 60 additions and 55 deletions
Download patch file Download diff file Expand all files Collapse all files

22
scripts/plotting/logo_plots.R
View file

@ -69,25 +69,25 @@ svg(plot_logo_or, width = 30 , height = 6)
logo_or = ggseqlogo(wide_df_or
, method = "custom"
, seq_type = "aa") + ylab("my custom height") +
theme( axis.text.x = element_text(size = 12
, angle = 90
theme( axis.text.x = element_text(size = x_ats
, angle = x_tangle
, hjust = 1
, vjust = 0.4)
, axis.text.y = element_text(size = 22
, angle = 0
, axis.text.y = element_text(size = y_ats
, angle = y_tangle
, hjust = 1
, vjust = 0)
, axis.title.y = element_text(size = 25)
, axis.title.x = element_text(size = 20)
, axis.title.y = element_text(size = x_tts)
, axis.title.x = element_text(size = y_tts)
#, legend.position = "bottom") +
, legend.position = "none")+
#, legend.text = element_text(size = 15)
#, legend.title = element_text(size = 15))+
scale_x_discrete("Position"
, legend.position = leg_pos)+
#, legend.text = element_text(size = leg_ts)
#, legend.title = element_text(size = leg_tts))+
scale_x_discrete(x_lab
#, breaks
, labels = position_or
, limits = factor(1:length(position_or))) +
ylab("Odds Ratio")
ylab(y_lab)
print(logo_or)
#dev.off()