Mercurial > repos > eduardo > blobplot
changeset 6:b45fc20c7acd
resize legend and removed facet
| author | Eduardo <eduardoalves@abdn.ac.uk> |
|---|---|
| date | Sat, 28 Nov 2015 11:26:37 +0000 |
| parents | dfa4f03b5baa |
| children | adebc1bb3961 |
| files | makeblobplot.R |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/makeblobplot.R Wed Nov 25 13:54:48 2015 +0000 +++ b/makeblobplot.R Sat Nov 28 11:26:37 2015 +0000 @@ -68,8 +68,8 @@ } #y_axis_breaks = c(1,2,5,10,20,50,100,200,500,1000); g<-g + - facet_wrap(~read_set, ncol=numcols) + - #scale_y_log10() + + #facet_wrap(~read_set, ncol=numcols) + + scale_y_log10() + scale_x_continuous(limits=c(1e-307, 1),breaks = seq(0,1,.1)) + labs(x="GC content", y="Read coverage") + guides(colour = guide_legend(nrow=3, override.aes = list(alpha = 1,size=10))) + @@ -79,8 +79,8 @@ axis.text.y = element_text(colour = "black", size = 25, vjust = 0.5), axis.title.x = element_text(colour = "black", size = 25, vjust = 0), axis.title.y = element_text(colour = "black", size = 25, hjust = 0.5, vjust = 0.5, angle=90), - legend.text = element_text(colour = "black", size = 25, vjust = 0), - legend.title = element_text(colour = "black", size = 25, vjust = 0, hjust = 0, lineheight=1), + legend.text = element_text(colour = "black", size = 15, vjust = 0), + legend.title = element_text(colour = "black", size = 15, vjust = 0, hjust = 0, lineheight=1), legend.justification=c(1,1), legend.position="bottom", legend.direction="horizontal" ) g